新建图层并画矩形

山联2

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

* o$ _7 l( ^2 o4 J6 u           加载一个插件后，运行它，就是在新自定义好的图层上,连续画矩形的命令。

woaishuijia

1. 
   # N, d' b' r; a% `% I- B2 _8 T
2. (defun c:jx (/ newlayername p1 p2)
   
3.   (setq newlayername (getstring "\n指定新图层的名字:"))
   
4.   (command "-layer" "n" newlayername "s" newlayername "")
   
5.   (initget 1)
     r3 R: Z$ s' z4 I' K
6.   (while t
   
7.     (setq p1 (getpoint "\n指定第一个角点:")
   " M: z( T6 x7 a4 P4 h, d% w
8.           p2 (getpoint p1 "\n指定第二个角点:")
   
9.     )
   ) q8 ]/ L, Z: F* a4 C; p
10.     (command "rectang" p1 p2)
    
11.   )
    
12.   (princ)
    
13. )
    

复制代码

山联2

0 G: x1 t' h2 N" i7 x7 k  {5 l7 v
. y2 k& m* V! l* B* C先谢过楼上的版主
# Y7 p/ M7 S+ z  O8 ~
# U: _4 K  y: M. Z不过，，代码，提示运行错误: 参数类型错误: numberp: nil
还请明示，，谢谢！



(要新建图层为中文名)
5 a- P" I4 i# Q$ F* [7 e+ n
; X5 s- ~' e8 e
下面一位网友写的：（只能建英文名称的图层）
/ b# }" k- Y, r4 k" N' l( @(defun C:gfg()
# Y; e% n& \1 y8 {( J(COMMAND "LAYER" "M" "TEMP" "c" "16" "" "lw" "0.18" "" "")
& X9 }* I- P& Y0 L# s7 X+ J$ b- ` (while (<= c cnt)
2 }! H3 ]1 b2 U" |5 r! i% E7 Q  (command "-LAYER" "ON" "TEMP" "")
(command "rectang" pause pause)
  )
)

woaishuijia

你用的CAD版本太老了吧?
) |  U' L9 t) m把command "-layer"....改成command "layer"....
7 l  _) P! A. i* S! O我在2005和2010上调试程序,都可以使用中文图层名.

山联2

谢谢

再试试

感谢版主