画完矩形后中心添加文字插件问题求助，谢谢~

飞雪神光

逗亦斗霸 发表于 2024-8-9 20:08
再请教一下飞版，我尝试把(setq ss(ssget))删除，并把后面的俩ss换成ty为什么不能像居中生成文字一样生成 ...

ssget 是选择集 后面代码也是选择集的写法 我觉得你是想象之前那样 单个的绘制

1. (defun c:cdc (/ ff lst lst1 lst2 p pt_xy str ty)
   
2.         (defun pt_xy (e / s)
   
3.                 (if (setq s
   
4.                                         (mapcar 'cdr
   
5.                                                 (vl-remove-if-not '(lambda (x) (= (car x) 10))(entget e))
   
6.                                         )
   
7.                                 )
   
8.                         (if (= 1 (length s))(car s)s)
   
9.                 )
   
10.         )
    
11.         (defun ff(lst)
    
12.                 (entmakex (append (list '(0 . "LWPOLYLINE")
    
13.                                                                                                 '(100 . "AcDbEntity")
    
14.                                                                                                 '(100 . "AcDbPolyline")
    
15.                                                                                                 '(62 . 256)
    
16.                                                                                                 (cons 90 (length lst))
    
17.                                                                                                 (cons 70 0)
    
18.                                                                                         )
    
19.                                                                 (mapcar '(lambda (pt) (cons 10 pt)) lst)
    
20.                                                         )
    
21.                 )
    
22.         )
    
23.         (setq str "1000X1000")
    
24.         (setq p (getpoint "\n插入点"))
    
25.         (command "_.Rectang" "non" p "non" (strcat "@" (vl-string-translate "X" "," str)))
    
26.         (setq ty (entlast))
    
27.         (command "rotate" ty "" p)
    
28.         (command pause)
    
29.         (setq lst(pt_xy ty))
    
30.         (setq lst1(list(car lst ) (caddr lst )))
    
31.         (setq lst2(list(cadr lst )(cadddr lst )))
    
32.         (ff lst1)
    
33.         (ff lst2)
    
34.         (princ)        
    
35. )

(defun c:cdc (/ ff lst lst1 lst2 p pt_xy str ty)<br />         (defun pt_xy (e / s)<br />                 (if (setq s<br />                                         (mapcar 'cdr<br />                                                 (vl-remove-if-not '(lambda (x) (= (car x) 10))(entget e))<br />                                         )<br />                                 )<br />                         (if (= 1 (length s))(car s)s)<br />                 )<br />         )<br />         (defun ff(lst)<br />                 (entmakex (append (list '(0 . "LWPOLYLINE")<br />                                                                                                 '(100 . "AcDbEntity")<br />                                                                                                 '(100 . "AcDbPolyline")<br />                                                                                                 '(62 . 256)<br />                                                                                                 (cons 90 (length lst))<br />                                                                                                 (cons 70 0)<br />                                                                                         )<br />                                                                 (mapcar '(lambda (pt) (cons 10 pt)) lst)<br />                                                         )<br />                 )<br />         )<br />         (setq str "1000X1000")<br />         (setq p (getpoint "\n插入点"))<br />         (command "_.Rectang" "non" p "non" (strcat "@" (vl-string-translate "X" "," str)))<br />         (setq ty (entlast))<br />         (command "rotate" ty "" p)<br />         (command pause)<br />         (setq lst(pt_xy ty))<br />         (setq lst1(list(car lst ) (caddr lst )))<br />         (setq lst2(list(cadr lst )(cadddr lst )))<br />         (ff lst1)<br />         (ff lst2)<br />         (princ)        <br /> )

逗亦斗霸

飞雪神光 发表于 2024-8-9 20:41
ssget 是选择集 后面代码也是选择集的写法 我觉得你是想象之前那样 单个的绘制

明白了，原来方向都搞错了感谢飞版悉心指点~

逗亦斗霸

飞雪神光 发表于 2024-8-8 12:44

http://bbs.mjtd.com/thread-191253-1-1.html飞版，不好意思！昨天复制错了链接，我求助的是这个，谢谢~
PS：我还不能发私信，抱歉哈~