新建图层并画矩形

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

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

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

x

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

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

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

+ |% }) J( y8 C0 F8 b
(defun c:jx (/ newlayername p1 p2)8 F4 N& J9 w# I$ g5 g, u
(setq newlayername (getstring "\n指定新图层的名字:"))5 J! ^& K0 B% L7 O
(command "-layer" "n" newlayername "s" newlayername "")
$ X3 ^- C/ [! E% ~6 C. f8 l$ }2 U
(initget 1)8 U `; O5 F2 Y3 C, |
(while t
- z: A0 M8 d3 g
(setq p1 (getpoint "\n指定第一个角点:")
7 L& K1 Z- u l7 E) i
p2 (getpoint p1 "\n指定第二个角点:")# \8 \( d, d4 \6 r/ z
)- P1 C5 N( |7 _& b% ^0 w
(command "rectang" p1 p2)7 r, ~; a! w" A% ^3 b: p8 i+ a
)5 ~' w. s( M Z5 f
(princ)
! [3 J* a6 f$ y9 J, m6 c7 ^% N+ [
)
1 k& K) R& n9 K5 B" p# L

复制代码

山联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

谢谢

再试试

感谢版主

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

通知

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

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

浏览过的版块