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

柱哥 发表于 2015-8-13 13:54:40

学习一下，谢谢！

5d95286278 发表于 2015-8-15 21:02:16

chakanneirongxuhaohuifukejian

LIULISHENG 发表于 2015-8-25 08:38:18

这个很不错的

lxg3443 发表于 2015-8-25 16:57:42

学习 看看有没有标注的

zhhunicorn 发表于 2015-8-26 17:02:01

楼主辛苦了

943528397 发表于 2015-8-27 20:54:12

good good good good

zxc_Ok 发表于 2015-9-10 20:17:43

ntmake创建图元较command速度快，且不受捕捉等CAD环境因素影响，因此优先选用entmake。
entmake创建图元必要条件，即创建图元的最少组码项，再少就无法正确创建图元，实际使用中需要颜色、图层等组码项自己添加。水平有限，欢迎拍砖。

xyp1964 发表于 2015-9-11 07:58:30

;; abc 带扩展数据的圆 (abc (getpoint) 2.5 "J" 1)
(defun abc (pt rr qz xh)
(entmake (list '(0 . "CIRCLE")
               '(100 . "AcDbEntity")
               ;(cons 8 "JZP")
               '(100 . "AcDbCircle")
               (cons 10 pt)
               (cons 40 rr)
               (list -3
                     (list "SOUTH"
                             '(1000 . "301000")
                             (cons 1000 qz)
                             (cons 1071 xh)
                     )
               )
           )
)
)

lucas_3333 发表于 2015-9-11 11:05:10

本帖最后由 lucas_3333 于 2015-9-11 11:15 编辑

xyp1964 发表于 2015-9-11 07:58 static/image/common/back.gif

1001 组中有无效的的应用程序名
这样也不行,啥情况?
;; abc 带扩展数据的圆 (abc (getpoint) 2.5 "J" 1)
(defun abc (pt rr qz xh)
      (entmake (list '(0 . "CIRCLE")
                '(100 . "AcDbEntity")
                ;(cons 8 "JZP");;图层
                '(100 . "AcDbCircle")
                (cons 10 pt);;中心点
                (cons 40 rr);;半径
                (list -3
                        (list "SOUTH"
                              '(1002 . "{")
                              '(1000 . "301000")
                              (cons 1000 qz)
                              (cons 1071 xh)
                              '(1002 . "}")
                        )
                )
      )
      )
)

xyp1964 发表于 2015-9-11 13:59:35

lucas_3333 发表于 2015-9-11 11:05 static/image/common/back.gif
1001 组中有无效的的应用程序名
这样也不行,啥情况?

要先注册： (regapp "SOUTH")

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