请教怎么实现在多段线起始端点处添加一个文字序号
请教怎么实现在多段线起始端点处添加一个文字序号，比如框选5条多段线，自动在每条多段线的起始端点处添加一个1、2、3、4、5之类的序号！忘各位大侠指教！http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 sulj2010的微博 (defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget '((0 . "LWPOLYLINE"))))
(repeat (setq i (sslength ss))
(setq ent (entget(ssname ss (setq i (1- i)))))
(setq pt (cdr(assoc 10 ent)))
(command "_.TEXT" pt "" "" (itoa (1+ i)))
)
)
(setvar "CMDECHO" 1)
(princ)
) 本帖最后由 易云网络 于 2015-6-13 10:44 编辑
(defun c:ttb ()
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(setq b 0)
(repeat (setq n(sslength ss))
(setq a(cdr (assoc 10 (entget (ssname ss (setq n (1- n))) '("*")))))
(setq #k (rtos(setq b (1+ b))2 0))
(entmake
(list '(0 . "MTEXT") '(100 . "AcDbEntity")'(100 . "AcDbMText")
(cons 1 #k) ;;文字内容
(cons 40 3.) ;;文字高度
(cons 41 0.7) ;;文字倾斜度
(cons 10 a) ;;文字插入点
(cons 7 "standard");; 文字样式
(cons 8 "0") ;;文字图层
)
)
)
(princ)
)
页:
[1]