新建图层并画矩形

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

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

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

x

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

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

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

4 J% k9 ?: |7 }: d: }
(defun c:jx (/ newlayername p1 p2)
1 h# V# [/ j( A* i5 t) ~
(setq newlayername (getstring "\n指定新图层的名字:"))4 O) V+ Q, {' |/ @" ^4 F
(command "-layer" "n" newlayername "s" newlayername "")
, j" z& A5 `" p
(initget 1)9 Q' Q( q. G6 J: h( m! f
(while t, E7 {0 o; c8 u4 Z* t2 f
(setq p1 (getpoint "\n指定第一个角点:")6 _: j R) D$ o2 a( [
p2 (getpoint p1 "\n指定第二个角点:")
4 a" J( Y( t* @5 W3 l
)0 H# R. g' \* l' T; X8 v4 |
(command "rectang" p1 p2) w) q1 \% }1 ^. ]/ X- m
): m: O( }* S: l8 j
(princ)
1 C& v* f- A; p
) m2 w) m7 G4 z! L$ A" ]& O4 ?

复制代码

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

谢谢

再试试

感谢版主

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

通知

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

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