社区 › AutoLISP/Visual LISP 编程技术 › entmake创建图元必要条件(慢慢更新)

sunny_8848 发表于 2020-11-14 18:59:22

lee50310 发表于 2020-11-14 02:35


谢谢帮忙！

caocaosasd 发表于 2021-6-20 20:42:55

3、点表生成多段线
   (entmake (append    (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length lst)))
      (mapcar '(lambda (pt)(cons 10 pt)) lst ))
)


大佬请问一下，这里怎么才能使新生成的多段线闭合呢？我加了'(70 1)为何没有效果……

(defun C:awa (/ ocmd dqtc a1 a2 a3 a4 a5 a6 a7 ja1 zhu1 pt lst)

(setq ocmd (getvar "CMDECHO"))
(setq dqtc (getvar "clayer"))

(setq a1 (getpoint))
(setq a2 (getpoint a1))
(setq ja1 (angle a1 a2))
(setq a3 (polar a1 ja1 400))
(setq a4 (polar a3 (+ ja1 (* 0.5 pi)) 400))
(setq a5 (polar a1 (+ ja1 (* 0.5 pi)) 400))
(setq a6 (polar a3 (+ ja1 (* 1.5 pi)) 400))
(setq a7 (polar a1 (+ ja1 (* 1.5 pi)) 400))

(setq lst (list a1 a3 a4 a5 a1))
(setq        zhu1 (entmake (append (list '(0 . "LWPOLYLINE")
                          (cons 70 1)
                          '(100 . "AcDbEntity")
                          '(100 . "AcDbPolyline")
                          (cons 90 (length lst))
                      )
                      (mapcar '(lambda (pt) (cons 10 pt)) lst)
              )
   )
)


(setvar "clayer" dqtc)
(setvar "CMDECHO" ocmd)

)
代码是以上这个

趣意人生 发表于 2021-9-26 22:25:55

多谢楼主分享。

f4800 发表于 2022-3-29 08:37:29

非常好 全面多谢分享

Aries 发表于 2022-4-22 20:34:50

支持支持，高手的帖子要爆帖啊

hetozju_ming 发表于 2022-4-24 10:16:37

插入属性块还得用command吗？

柏克 发表于 2022-6-20 18:19:18

感谢楼主分享，新手学习

哥很帅也很温柔 发表于 2022-7-19 13:25:54

很厉害很牛逼

229096767 发表于 2022-10-18 16:53:37

感谢分享   

hydkot99 发表于 2022-11-14 15:44:40

学习留存，感谢分享

查看完整版本: entmake创建图元必要条件(慢慢更新)