新建图层并画矩形

山联2

求助各位高手，请写个插件：
' v# u5 i3 c/ a1 f; K2 c
           加载一个插件后，运行它，就是在新自定义好的图层上,连续画矩形的命令。

woaishuijia

1. 
   % ]4 I: t2 C+ e: ^) Z
2. (defun c:jx (/ newlayername p1 p2)
   
3.   (setq newlayername (getstring "\n指定新图层的名字:"))
   
4.   (command "-layer" "n" newlayername "s" newlayername "")
   
5.   (initget 1)
   9 C7 i  c0 l8 I, D5 R$ c5 j" J2 B
6.   (while t
   " k+ A0 e& d% k# V) t6 Z
7.     (setq p1 (getpoint "\n指定第一个角点:")
   8 S( J/ `+ c  P# G1 O4 q9 U
8.           p2 (getpoint p1 "\n指定第二个角点:")
   4 x* h; }  T5 E
9.     )
   + t" m$ D, I1 S0 c7 C5 E, P9 M, i
10.     (command "rectang" p1 p2)
    
11.   )
    7 ]2 f8 `# s6 V, r/ w
12.   (princ)
    
13. )
    

复制代码

山联2

+ i6 u3 o4 a& N; U: @- Q
先谢过楼上的版主
1 P# t% j! g7 y5 u* \; J% l" Z3 v- L
5 |+ S. [) A7 s5 [' @4 W4 e  |  `' [不过，，代码，提示运行错误: 参数类型错误: numberp: nil
3 J% }8 b8 H" s. Z+ }. H7 z. ~  a+ X还请明示，，谢谢！

8 a  n' x  L, l- l( {

! w3 W' F, X8 G  @) }, h4 u# m(要新建图层为中文名)

, f* m$ v& i4 s. a
下面一位网友写的：（只能建英文名称的图层）
5 R# [0 U" j0 E  c" V3 q( g(defun C:gfg()
(COMMAND "LAYER" "M" "TEMP" "c" "16" "" "lw" "0.18" "" "")
: m2 w: W$ H! M3 l2 d  L (while (<= c cnt)
  (command "-LAYER" "ON" "TEMP" "")
9 ^1 `) V1 g* [$ j) `# t- g. G (command "rectang" pause pause)
  )
)

woaishuijia

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

山联2

谢谢
7 q0 b1 x1 R' C* O
/ X" O! N7 t) E# X1 i: u* ]' J再试试

感谢版主