新建图层并画矩形

山联2 · 发表于 2010-8-21 08:34:35

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

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

woaishuijia · 发表于 2010-8-21 11:27:54

& \* h6 B: ?$ x9 \1 r' {+ L; e
(defun c:jx (/ newlayername p1 p2). b! T5 ^7 Q; g2 x9 C) o
(setq newlayername (getstring "\n指定新图层的名字:"))
; j) a' w1 ]& _$ C
(command "-layer" "n" newlayername "s" newlayername "")
9 N! _ Z$ @: a+ k3 }, d% _
(initget 1)6 P4 S/ W5 [* O. n+ V
(while t
( D O0 Z' h6 l! v1 k; G1 @
(setq p1 (getpoint "\n指定第一个角点:")' I1 L) l% @# L0 \/ u2 }4 G2 N, o1 R2 V) g _
p2 (getpoint p1 "\n指定第二个角点:")
' [4 O @8 E! @
)
) u! Z. g5 y8 \" k h* _% H1 P# O
(command "rectang" p1 p2)
+ K/ F% m/ E) o* L4 ]
)) X' E- S. G- e5 `1 \& s" p
(princ): _7 ^9 j, J: M: e1 B3 ~
)4 h% U7 }5 O0 }# t

复制代码

山联2 · 发表于 2010-8-21 15:16:28

本帖最后由山联2 于 2010-8-21 15:33 编辑

先谢过楼上的版主

不过，，代码，提示运行错误: 参数类型错误: numberp: nil
还请明示，，谢谢！

(要新建图层为中文名)

下面一位网友写的：（只能建英文名称的图层）
(defun C:gfg()
(COMMAND "LAYER" "M" "TEMP" "c" "16" "" "lw" "0.18" "" "")
(while (<= c cnt)
(command "-LAYER" "ON" "TEMP" "")
(command "rectang" pause pause)
)
)

woaishuijia · 发表于 2010-8-21 20:45:15

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

山联2 · 发表于 2010-8-23 10:06:53

谢谢

再试试

感谢版主

		自动登录	找回密码
密码			注册

通知

[已答复] 新建图层并画矩形

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块