entmake创建图元必要条件(慢慢更新)

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

sunny_8848 发表于 2019-9-30 09:15
请问这里的(entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))，这里的pt1,pt2怎么改成具体的坐 ...

(defun c:tt()
(setvar "cmdecho" 0)
(setq Pt1 (getpoint "\n第一點"))
(setq Pt2 (getpoint pt1 "\n第二點"))
(entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
)

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

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

谢谢帮忙！

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

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

多谢楼主分享。

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

非常好全面多谢分享

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

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

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

插入属性块还得用command吗？

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

感谢楼主分享，新手学习

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

很厉害很牛逼

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

感谢分享

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

[资源] entmake创建图元必要条件(慢慢更新)