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

linzenghuo

学习了，谢谢

木个木

帖子怎么收藏？？

jinan1913

(entmake (list '(0 . "TEXT") (cons 1 TEXT3) (cons 10 TXTPOINT3) (cons 40 3.5)(cons 72 0)(cons 73 2)))
加上(cons 72 0)(cons 73 2)就不行呢，不能创建文字，是空的，也不提示错误。奇怪。

13648893846

;;28[功能]生成带凸度多段线
;;[用法](LC:make-arcpline (getpoint "\n 请输入圆弧第一点：") (getpoint "\n 请输入圆弧第二点：") (getreal "\n 请输入圆弧凸度："))
;;[作者]BY 老仓测绘上班记
;;;(setq pt1 (getpoint "\n 请输入圆弧第一点：")
;;;      pt2 (getpoint "\n 请输入圆弧第二点：")
;;;      arcBulge -0.426309)
(defun LC:make-arcpline (pt1 pt2 arcBulge / pt1 pt2 arcBulge arclst)
  (setq arclst (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(8 . "AXIS") '(62 . 6) '(100 . "AcDbPolyline") '(90 . 2) (cons 10 pt1)
                   (cons 42 arcBulge) (cons 10 pt2)))
  (entmake arclst)
)

Giuly09

感谢整理分享，受益匪浅

myhobby76

dear sir,
Learning .......................

龙__平

这个可以有 慢慢学习中

有区别吗

这个总结可以说相当到位了..给LZ点赞

start4444

革天明

chlh_jd 发表于 2012-3-22 20:14
Theswamp.org 有个函数

像layer这样的，没有对象可选如何使用？