新建图层并画矩形

山联2

求助各位高手，请写个插件：

           加载一个插件后，运行它，就是在新自定义好的图层上,连续画矩形的命令。

woaishuijia

1. 
   
2. (defun c:jx (/ newlayername p1 p2)
   ; Z' ]( c0 G9 b/ a! R( m, d
3.   (setq newlayername (getstring "\n指定新图层的名字:"))
   0 L% ~4 y+ H& @5 N5 d1 p
4.   (command "-layer" "n" newlayername "s" newlayername "")
   
5.   (initget 1)
   9 p7 O; `% w$ b8 i8 `( I! L, z
6.   (while t
   ( J1 i1 r/ W3 [0 M; J. {. F
7.     (setq p1 (getpoint "\n指定第一个角点:")
   
8.           p2 (getpoint p1 "\n指定第二个角点:")
   1 _) F: X7 _+ _! G7 f& x
9.     )
   
10.     (command "rectang" p1 p2)
    
11.   )
    
12.   (princ)
    
13. )
    ! ?& t) `- q# U. h% `+ k

复制代码

山联2

1 }' b+ C6 Q" {; R' g) ]% B; D先谢过楼上的版主
/ @3 [  N: T) o
/ d: r& M8 ^8 u不过，，代码，提示运行错误: 参数类型错误: numberp: nil
# P; o/ f9 q! A! q  ~9 A还请明示，，谢谢！



(要新建图层为中文名)
6 O6 k% J  A8 b5 Q
. K# U: G* ~) M- \3 }* d
7 Q$ j( d* l3 I2 b! X下面一位网友写的：（只能建英文名称的图层）
+ n1 n8 y, \/ i3 R(defun C:gfg()
5 t. v: k1 L" ?, k) W5 O3 x5 m$ l(COMMAND "LAYER" "M" "TEMP" "c" "16" "" "lw" "0.18" "" "")
! E6 [0 [1 o5 o6 p  c! I, s (while (<= c cnt)
2 }( C5 a* H4 `6 F3 x1 w* X  (command "-LAYER" "ON" "TEMP" "")
(command "rectang" pause pause)
1 g1 L2 s' ^0 t  )
6 K: M( p3 D5 \. F' y1 Y)

woaishuijia

你用的CAD版本太老了吧?
把command "-layer"....改成command "layer"....
3 b9 s8 K! _3 |# d2 u" ?1 W我在2005和2010上调试程序,都可以使用中文图层名.

山联2

谢谢
8 r1 c6 e9 B2 k3 q! v! A; A& ]
再试试

0 R2 b" `$ f/ _: X+ V! \* l感谢版主