木个木 发表于 2018-7-13 12:43:15

帖子怎么收藏？？

jinan1913 发表于 2018-7-16 09:30:14

(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 发表于 2018-8-6 20:28:52

;;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 发表于 2018-8-19 23:02:20

感谢整理分享，受益匪浅

myhobby76 发表于 2018-8-20 18:25:43

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

龙__平 发表于 2018-8-21 02:06:22

这个可以有 慢慢学习中

有区别吗 发表于 2018-9-19 13:51:02

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

start4444 发表于 2018-9-30 11:11:02

革天明 发表于 2018-10-4 23:56:16

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

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

蓝盾设计 发表于 2018-10-27 23:49:04

好好学习，很不错的学习技巧及资料
页: 86 87 88 89 90 91 92 93 94 95 [96] 97 98 99 100
查看完整版本: entmake创建图元必要条件(慢慢更新)