给文字加圆加点，但是参数太少，源码龙龙仔

meja

找了半天也没找出来，有人指教一下不？

2. ;;By 龙龙仔(LUCAS)，Modified by meflying
   
3. ;;在TEXT和MTEXT实体的几何中心点画点
   
4. ;;参数:sname - 文字对象名
   
5. (vl-load-com)
   
6. (defun c:TT (sname / CENTPT N)
   
7. (defun AX:GETBOUNDINGBOX (ENT / LL  UR  ents  ents2)
   
8. (setq ents (entget ent))
   
9. (if (= (cdr (assoc 0 ents)) "MTEXT")
   
10. (progn
    
11. (setq ents2 ents)
    
12. (setq ents2 (subst (cons 41 0) (assoc 41 ents2) ents2))
    
13. (entmod ents2)
    
14. )
    
15. )
    
16. (vla-getboundingbox (vlax-ename->vla-object ENT) 'LL 'UR)
    
17. (entmod ents)
    
18. (MIDPOINT (vlax-safearray->list LL)
    
19. (vlax-safearray->list UR)
    
20. )
    
21. )
    
22. (defun MIDPOINT (/ PT1 PT2)
    
23. (mapcar
    
24. '(lambda (X Y)
    
25. (* 0.5 (+ X Y))
    
26. )
    
27. PT1 PT2
    
28. )
    
29. )
    
30. (setq CENTPT (AX:GETBOUNDINGBOX sname))
    
31. (command "_.point" centpt)                                       ; 生成点
    
32. ;(entmakex (list '(0 . "CIRCLE") (cons 10 centpt) (cons 40 1) ))           ; 生成圆
    
33. (princ)
    
34. )

;;By 龙龙仔(LUCAS)，Modified by meflying<br /> ;;在TEXT和MTEXT实体的几何中心点画点<br /> ;;参数:sname - 文字对象名 <br /> (vl-load-com)<br /> (defun c:TT (sname / CENTPT N)<br /> (defun AX:GETBOUNDINGBOX (ENT / LL  UR  ents  ents2)<br /> (setq ents (entget ent))<br /> (if (= (cdr (assoc 0 ents)) "MTEXT")<br /> (progn<br /> (setq ents2 ents)<br /> (setq ents2 (subst (cons 41 0) (assoc 41 ents2) ents2))<br /> (entmod ents2)<br /> )<br /> )<br /> (vla-getboundingbox (vlax-ename->vla-object ENT) 'LL 'UR)<br /> (entmod ents)<br /> (MIDPOINT (vlax-safearray->list LL)<br /> (vlax-safearray->list UR)<br /> )<br /> )<br /> (defun MIDPOINT (/ PT1 PT2)<br /> (mapcar<br /> '(lambda (X Y)<br /> (* 0.5 (+ X Y))<br /> )<br /> PT1 PT2<br /> )<br /> )<br /> (setq CENTPT (AX:GETBOUNDINGBOX sname))<br /> (command "_.point" centpt)                                       ; 生成点 <br /> ;(entmakex (list '(0 . "CIRCLE") (cons 10 centpt) (cons 40 1) ))           ; 生成圆<br /> (princ)<br /> )

飞雪神光

1. (defun TT (sname / CENTPT N)
   
2.         (defun AX:GETBOUNDINGBOX (ENT / LL  UR  ents  ents2)
   
3.                 (setq ents (entget ent))
   
4.                 (if (= (cdr (assoc 0 ents)) "MTEXT")
   
5.                         (progn
   
6.                                 (setq ents2 ents)
   
7.                                 (setq ents2 (subst (cons 41 0) (assoc 41 ents2) ents2))
   
8.                                 (entmod ents2)
   
9.                         )
   
10.                 )
    
11.                 (vla-getboundingbox (vlax-ename->vla-object ENT) 'LL 'UR)
    
12.                 (entmod ents)
    
13.                 (MIDPOINT (vlax-safearray->list LL)(vlax-safearray->list UR))
    
14.         )
    
15.         (defun MIDPOINT (PT1 PT2 / PT1 PT2)
    
16.                 (mapcar
    
17.                         '(lambda (X Y)
    
18.                                  (* 0.5 (+ X Y))
    
19.                          )
    
20.                         PT1 PT2
    
21.                 )
    
22.         )
    
23.         (setq CENTPT (AX:GETBOUNDINGBOX sname))
    
24.         (entmakex (list '(0 . "POINT") (cons 10 centpt) ))                                       ; 生成点
    
25.         (entmakex (list '(0 . "CIRCLE") (cons 10 centpt) (cons 40 1) ))           ; 生成圆
    
26.         (princ)
    
27. )
    
28. (TT (car(entsel)))

(defun TT (sname / CENTPT N)<br />         (defun AX:GETBOUNDINGBOX (ENT / LL  UR  ents  ents2)<br />                 (setq ents (entget ent))<br />                 (if (= (cdr (assoc 0 ents)) "MTEXT")<br />                         (progn<br />                                 (setq ents2 ents)<br />                                 (setq ents2 (subst (cons 41 0) (assoc 41 ents2) ents2))<br />                                 (entmod ents2)<br />                         )<br />                 )<br />                 (vla-getboundingbox (vlax-ename->vla-object ENT) 'LL 'UR)<br />                 (entmod ents)<br />                 (MIDPOINT (vlax-safearray->list LL)(vlax-safearray->list UR))<br />         )<br />         (defun MIDPOINT (PT1 PT2 / PT1 PT2)<br />                 (mapcar<br />                         '(lambda (X Y)<br />                                  (* 0.5 (+ X Y))<br />                          )<br />                         PT1 PT2<br />                 )<br />         )<br />         (setq CENTPT (AX:GETBOUNDINGBOX sname))<br />         (entmakex (list '(0 . "POINT") (cons 10 centpt) ))                                       ; 生成点 <br />         (entmakex (list '(0 . "CIRCLE") (cons 10 centpt) (cons 40 1) ))           ; 生成圆<br />         (princ)<br /> )<br /> (TT (car(entsel)))

meja

飞雪神光 发表于 2023-6-3 11:59

谢谢，可以使用了！

依然小小鸟

不错的帖子 顶一下

hzyhzjjzh

白色微風1991

不錯的帖子頂一下 學習