新建图层并画矩形

山联2

求助各位高手，请写个插件：
* q6 A9 U1 n* {. l7 n" |; z
* W- }# i4 k$ Y8 T4 P# w9 \: h& k           加载一个插件后，运行它，就是在新自定义好的图层上,连续画矩形的命令。

woaishuijia

1. 
   ' p2 N8 Y! b: W% H* d/ j
2. (defun c:jx (/ newlayername p1 p2)
   
3.   (setq newlayername (getstring "\n指定新图层的名字:"))
   
4.   (command "-layer" "n" newlayername "s" newlayername "")
   ( R: I+ w( H8 q. v% r
5.   (initget 1)
   ! D8 x: N4 o0 k+ e! C
6.   (while t
   ; u2 |2 e+ e, U) P, O; r( C
7.     (setq p1 (getpoint "\n指定第一个角点:")
   
8.           p2 (getpoint p1 "\n指定第二个角点:")
   # I$ y6 N8 B3 ?7 R( S( l; _
9.     )
   
10.     (command "rectang" p1 p2)
    . u" A3 r9 ]+ }  V
11.   )
    
12.   (princ)
    
13. )
      y: Q( }$ c% F% _/ _

复制代码

山联2

/ {, m4 l/ x' g, j' [先谢过楼上的版主
* N. j" o- D! t5 X, G3 k% b9 l7 E
不过，，代码，提示运行错误: 参数类型错误: numberp: nil
还请明示，，谢谢！

+ Y9 n" ~% `& `, C2 \0 G7 J
: `/ t5 g. M+ l: P' \
(要新建图层为中文名)
0 H; T4 B) V) m, P
4 l3 Q9 A" e& w
下面一位网友写的：（只能建英文名称的图层）
" a) Z/ G9 m" ](defun C:gfg()
(COMMAND "LAYER" "M" "TEMP" "c" "16" "" "lw" "0.18" "" "")
(while (<= c cnt)
) m% n/ o& Y$ S3 ?; z/ R! a  (command "-LAYER" "ON" "TEMP" "")
(command "rectang" pause pause)
  )
)

woaishuijia

你用的CAD版本太老了吧?
把command "-layer"....改成command "layer"....
: n% ]. w8 s% }我在2005和2010上调试程序,都可以使用中文图层名.

山联2

谢谢
1 f4 r" X% ^, C% M  R4 [
- V! I! B0 `" y& L; x* O再试试
$ {5 t: ~  r" p. G, R9 \
8 U; w  i& M( a8 ]1 w1 |/ `感谢版主