lisp读点坐标绘多义线_晓东CAD家园-论坛-A/VLISP-lisp程序的线宽、线颜色-请教各位大侠： 我采用lisp，读出多义线，对每个坐标点处理后，再用enrmakex（）重新生成多义线...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

x

请教各位大侠：    我采用lisp，读出多义线，对每个坐标点处理后，再用enrmakex()重新生成多义线，但保留原来的所有特性。但在处理后发现，有些信息未达到预想结果，也不知在哪些设置上有问题：

1、图层原来颜色为bylayer，设置了颜色，但lisp读出颜色62为nil，在图元表中确实没有表62,。如果在entmakex不设置62的值，则发生错误。任意设置颜色值后，生成后颜色为byblock，应如何处理？

2、组码370与组码43：

如果不设置组码43，则生不成多义线。设置全局宽度后，读出了43的值(如0.2)，在图元表中也有该表，但在entmakex()中设置了(43  . 0.2)，生成的多义线宽度并没有显示为0.2。查看该多义线特性，43为0.0。

组码370基本上也是这种情况。

应该如何设置处理这几组码表？

附：我采用的多义线函数

;;Entmake点表生成多段线

(defun mkpolyline (line_layer line_color line_type  line_kd line_43 line_bz p_lst / pt)

(print line_43)

(entmakeX

(append

(list '(0 . "LWPOLYLINE")

'(100 . "AcDbEntity")

(cons 8 line_layer)

(cons 62 line_color)

(cons 6 line_type)

;(cons 370 line_kd)

(cons 43 line_43)

'(100 . "AcDbPolyline")

(cons 90 (length p_lst))

(cons 70 line_bz)

)

(mapcar '(lambda (pt) (cons 10 pt)) p_lst)

)

)

)

广告位，后台可以设置，支持js

您好，您暂时不能浏览帖子的全部内容，请 登录

| 没有账号？ 请 注册