lisp画线指定图层、线型和颜色

qmqyqj

想用lisp实现画pline多段线，画的同时该图元归到设定的图层、颜色和线型，请教怎么写！

Andyhon

想用lisp实现画pline多段线，画的同时该图元

简单的说吧
模板先建有该图层并指定所使用的颜色和线型
(备便引用)

画pline多段线前切换至该图层


建图层并指定所使用的颜色和线型
站内有前例直接套用

切换至该图层
(setvar "Clayer" 该图层)

当然加上错误处理会更好

qmqyqj

Andyhon 发表于 2017-9-6 10:28
想用lisp实现画pline多段线，画的同时该图元

简单的说吧

不能不使用模版，直接在原始文件内直接做吗？

Andyhon

模版，适用于自家用的新图

若是来自客户的图 or 旧图
则直接在原始文件内直接做
or
insert 至 新开启的模版后再行处理

water_system

很简单！如果用entmake的方式创建多段线，则8对应图层，62对应颜色，6对应的是线型。直接写进去就行了。

比如这样子。

1. (defun        c:tt()
   
2.   (setq lst (list (getpoint) (getpoint) (getpoint)))
   
3.   (entmake (append
   
4.              (list (cons 0 "LWPOLYLINE")
   
5.                    (cons 100 "AcDbEntity")
   
6.                    (cons 100 "AcDbPolyline")
   
7.                    (cons 6 "ACAD_ISO05W100")        ;线型
   
8.                    (cons 8 "new")                ;图层
   
9.                    (cons 62 1)                        ;颜色
   
10.                    (cons 90 (length lst)))
    
11.              (mapcar ''((x) (cons 10 x)) lst)))
    
12.   )

(defun        c:tt()<br />   (setq lst (list (getpoint) (getpoint) (getpoint)))<br />   (entmake (append<br />              (list (cons 0 "LWPOLYLINE")<br />                    (cons 100 "AcDbEntity")<br />                    (cons 100 "AcDbPolyline")<br />                    (cons 6 "ACAD_ISO05W100")        ;线型<br />                    (cons 8 "new")                ;图层<br />                    (cons 62 1)                        ;颜色<br />                    (cons 90 (length lst)))<br />              (mapcar ''((x) (cons 10 x)) lst)))<br />   )

qmqyqj

water_system 发表于 2017-9-9 17:01
很简单！如果用entmake的方式创建多段线，则8对应图层，62对应颜色，6对应的是线型。直接写进去就行了。

...

测试了下，出现了以下问题：1.画线必须要确定3个点才能生成线条（而且只能画3点构成的2条线）；2.就是线型的问题，必须当前文件内加载了设置的线型才能用，如果当前文件内没有代码内设置的线型，则功能失效！

Andyhon

建议您即尽早规范使用客制化模板

vladimirputin

不错的资料，谢谢分享啊。

水仙的错

谢谢分享，学习下

消失的天空

http://bbs.mjtd.com/forum.php?mo ... hlight=%CD%BC%B2%E3
可以看一下G版。