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

20060510412

使用组码，太不符合直观印象了，还是vba的那种创建图元方式更直接

luhy2008

写的很好 学习了

38804965@qq.com

刚学习不久，先踩个坑再看看

sunny_8848

请问这里的(entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))，这里的pt1,pt2怎么改成具体的坐标？

mocheng

谢谢楼主分享

JHX948954875

谢谢楼主分享

hncjddd

完美，膜拜老哥，感谢.................................

999999

谢谢各位大神的分享，先收起来，有空看看，，加班加的都没有脾气了

nijiea123

这个太棒了，必须顶

lee50310

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

2. 
   
3. (defun c:tt()
   
4.     (setvar "cmdecho" 0)
   
5.     (setq Pt1 (getpoint "\n第一點"))
   
6.     (setq Pt2 (getpoint pt1 "\n第二點"))
   
7. 
   
8. (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
   
9. 
   
10. )
    

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