生成多段线的函数

Lisphk · 发表于 2018-10-31 14:02:13

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

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

×

本帖最后由 Lisphk 于 2018-10-31 14:04 编辑

[C++] 纯文本查看 复制代码

(defun make-lwpolyline(l / e)
 (setq e (entmakex (append (list '(0 . "LWPOLYLINE")
                                 '(100 . "AcDbEntity")
                                 '(67 . 0)
                                 '(410 . "Model")
                                 '(100 . "AcDbPolyline")
                                 (cons 90 (length l))
                                 '(70 . 1)
                           ) ;_  list
                           (mapcar (function (lambda (a) (cons 10 a))) l)
                   ) ;_  append
         ) ;_  entmakex
 ) ;_  setq
)

sicky111 · 发表于 2018-11-1 00:16:48

沙发支持！

konglong604 · 发表于 2018-11-1 09:55:33

谢谢分享的生成多段线的函数

ll_j · 发表于 2018-11-1 10:29:32

局部变量e是多余的吧？

ll_j · 发表于 2018-11-1 10:30:31

局部变量e是多余的吧？

Lisphk · 发表于 2018-11-1 12:41:11

ll_j 发表于 2018-11-1 10:29
局部变量e是多余的吧？

嗯，加了setq，去掉也可以

yoyoho · 发表于 2018-11-1 18:25:59

回覆学习，谢谢分享！！！

lisperado · 发表于 2018-11-1 20:08:17

我函数也大同小异，这里也不必重复了，只是分别在 list那段

(append (list .... ) (mapcar ...    ))

(vl-list* ....  (mapcar ...    ) )

(list ....  ) 忽略因为vl-list*本身已是表

marting · 发表于 2018-11-1 20:58:47

lisperado 发表于 2018-11-1 20:08
我函数也大同小异，这里也不必重复了，只是分别在 list那段

(append (list .... ) (mapcar ... )) ...

我来一个，可以设置NORMAL,ELEV

(defun mk_polyline (pt_lst)
(setq zdir (trans '(0 0 1) 1 0 T) ; current UCS normal
elv (caddr (trans (car pt_lst) 1 zdir)) ;current UCS elevation
)
(entmake
(append
(list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 (length pt_lst)) ; number of vertices
'(70 . 1) ; 1 = closed, 0 = opened
(cons 38 elv) ; elevation
(cons 210 zdir) ; normal
)
(mapcar '(lambda (pt) (cons 10 (trans pt 1 zdir))) pt_lst)
)
)
)

evayleung · 发表于 2018-11-3 00:42:20

谢谢分享。。。。。。

kqqt6236 · 发表于 2018-11-5 11:40:06

学习一下。

huangpc27 · 发表于 2018-11-22 20:05:52

与entmake生成多段线有什么区别

账号		自动登录	找回密码
密码			立即注册

[每日一码] 生成多段线的函数

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

点评

点评