再请教一下飞版，我尝试把(setq ss(ssget))删除，并把后面的俩ss换成ty为什么不能像居中生成文字一样生成 ...
ssget 是选择集 后面代码也是选择集的写法 我觉得你是想象之前那样 单个的绘制
(defun c:cdc (/ ff lst lst1 lst2 p pt_xy str ty)
(defun pt_xy (e / s)
(if (setq s
(mapcar 'cdr
(vl-remove-if-not '(lambda (x) (= (car x) 10))(entget e))
)
)
(if (= 1 (length s))(car s)s)
)
)
(defun ff(lst)
(entmakex (append (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
'(62 . 256)
(cons 90 (length lst))
(cons 70 0)
)
(mapcar '(lambda (pt) (cons 10 pt)) lst)
)
)
)
(setq str "1000X1000")
(setq p (getpoint "\n插入点"))
(command "_.Rectang" "non" p "non" (strcat "@" (vl-string-translate "X" "," str)))
(setq ty (entlast))
(command "rotate" ty "" p)
(command pause)
(setq lst(pt_xy ty))
(setq lst1(list(car lst ) (caddr lst )))
(setq lst2(list(cadr lst )(cadddr lst )))
(ff lst1)
(ff lst2)
(princ)
) 飞雪神光 发表于 2024-8-9 20:41
ssget 是选择集 后面代码也是选择集的写法 我觉得你是想象之前那样 单个的绘制
明白了，原来方向都搞错了:Q-感谢飞版悉心指点~ 飞雪神光 发表于 2024-8-8 12:44
http://bbs.mjtd.com/thread-191253-1-1.html飞版，不好意思！昨天复制错了链接，我求助的是这个，谢谢~
PS：我还不能发私信，抱歉哈~
页:
1
[2]