新建图层并画矩形

山联2

求助各位高手，请写个插件：
' l: w7 a. M8 F& \+ g
. z+ ?' A$ e4 s; {" }+ s           加载一个插件后，运行它，就是在新自定义好的图层上,连续画矩形的命令。

woaishuijia

1. 
   
2. (defun c:jx (/ newlayername p1 p2)
   ; Y8 m% T: l/ f
3.   (setq newlayername (getstring "\n指定新图层的名字:"))
   
4.   (command "-layer" "n" newlayername "s" newlayername "")
   ) }5 B0 k2 [: ?+ x
5.   (initget 1)
   
6.   (while t
   
7.     (setq p1 (getpoint "\n指定第一个角点:")
   
8.           p2 (getpoint p1 "\n指定第二个角点:")
   9 K5 w/ |; J! n6 d* i
9.     )
   4 @& X3 M' {6 n% z
10.     (command "rectang" p1 p2)
    ( x& p: A* y$ C9 u9 n! L
11.   )
    
12.   (princ)
    ' {' f# ^, a& f! i) N0 \
13. )
    

复制代码

山联2

6 s  D! h3 C5 O6 p
: ?$ Q- d+ N. ?: N# `/ w先谢过楼上的版主

不过，，代码，提示运行错误: 参数类型错误: numberp: nil
9 H- d# x+ E2 N, i6 B" B还请明示，，谢谢！

  b* D+ j5 @6 M1 G5 N. ~
* T8 ?# Y. @- V# j
5 w/ M- V  q9 k% ]* ~3 a8 U9 l(要新建图层为中文名)
: k: O0 o, |; E; v! O8 g1 F5 p. g
) {( E2 a& L6 M! {
下面一位网友写的：（只能建英文名称的图层）
(defun C:gfg()
& M2 X; S! I; V- y6 k  z(COMMAND "LAYER" "M" "TEMP" "c" "16" "" "lw" "0.18" "" "")
4 u" ]) a) w! G9 X1 Q; K (while (<= c cnt)
  (command "-LAYER" "ON" "TEMP" "")
(command "rectang" pause pause)
  )
)

woaishuijia

你用的CAD版本太老了吧?
) R. @6 G' a/ G) n. [把command "-layer"....改成command "layer"....
我在2005和2010上调试程序,都可以使用中文图层名.

山联2

谢谢

1 p9 A0 b. y  t  G$ B4 `9 S再试试
% @( g, M) |( Y/ P
* {$ T8 {8 p) a  V, g/ R+ h感谢版主