该博客介绍了一个LISP函数，用于根据用户选择的范围，修改天正CAD中的文本和块图元的位置。函数首先通过ssget选择文本和插入图元，然后遍历选择集，对文本图元使用LINE命令进行定位，对块图元则遍历其内部所有图元并调整坐标。次级函数hlj-dxf用于获取图元的DXF属性，hlj-blkQ用于枚举块中的所有图元。
(defun c:tt ()
(princ "\n请选择范围")
(if (setq ss (ssget '((0 . "text,insert"))))
(mapcar '(lambda (x)
(cond ((= (hlj-dxf 0 x) "TEXT")
(command "LINE" (hlj-dxf 10 x) '(0 0) "")
)
((= (hlj-dxf 0 x) "INSERT")
(setq p0 (hlj-dxf 10 x)
aa (vl-remove-if
'(lambda (y) (/= (hlj-dxf 0 y) "TEXT"))
(hlj-blkQ (hlj-dxf 2 x))
)
)
(foreach a aa
(setq p1 (hlj-dxf 10 a)
p1 (mapcar '(lambda (x y) (+ y x)) p1 p0)
)
(command "LINE" p1 '(0 0) "")
)
)
)
)
(ss2list ss)
)
)
(princ)
)
;; 次级函数
(defun hlj-dxf (n s1) (cdr (assoc n (entget s1))))
;; 枚举块中的图元 (hlj-blkQ (hlj-dxf 2 (entget blkname)))
;; (setq blkname (car (entsel "\n选择: ")))
(defun hlj-blkQ (blkname / a lst)
(setq &nb
最低0.47元/天 解锁文章
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
