注册 登录
明经CAD社区 返回首页

crazylsp的个人空间 http://www.mjtd.com/?369855 [收藏] [复制] [分享] [RSS]

日志

动态一拐引出线 还可以改进地方有许多

热度 2已有 1261 次阅读2013-12-6 10:50 |个人分类:文字|系统分类:开发| 动态

(defun c:tt()
   ;第一节
   (setq pt1(getpoint))
   (ZML-GRREADLST pt1 )
   (setq ob1(entlast) pt3 pt2)
   ;第二节
   (ZML-GRREADLST pt2 )(setq ob2(entlast) pt4 pt2)
   ;写文字
   (entmake 
        (list 
                (cons 0  "TEXT")
       (cons 1  "123" )
       (cons 10 pt2 ) 
(cons 40 (getvar "textsize"))
(cons 41 1)
                (cons 50 0)
(cons 62 3)
)
   )    
   (setq ob3(entlast))
   ;| (entmake 
        (list 
                (cons 0  "TEXT")
       (cons 1  "123" )
       (cons 10 (list (car pt2) (-(cadr pt2)(getvar "textsize")))) 
(cons 40 (getvar "textsize"))
(cons 41 1)
                (cons 50 0)
(cons 62 3)
)
   ) |;  
   ;移动第二节到合适地方
   (command "stretch" (ssget "C" pt4 pt3) "" "non"pt4 ) 
   ( while (> (getvar 'CmdActive) 0) (command pause) )
   ;调节第二节文字引出的位置   
   (command "lengthen" "dy" (list ob2 pt4) )
   ( while (> (getvar 'CmdActive) 0) 
      (command pause) 
      ( setq TEST t )
      ( while TEST
       ( setq TMP    ( grread t 7 0 )
     MODE   ( car TMP )
     dyncpt ( cadr TMP )
       )
       (entmod ( subst (cons 10  dyncpt) (assoc 10 (entget ob3) ) (entget ob3) ) )
       (if ( = mode 3 ) ( setq  TEST  nil ) )
    )
  ) 
)
( defun ZML-GRREADLST ( 3pt /)
    ( setq TEST t )
    ( while TEST
       ( setq TMP    ( grread t 7 0 )
     MODE   ( car TMP )
     dyncpt ( cadr TMP )
       )
       ( redraw ) 
       ( grdraw  3pt dyncpt 1 ) 
       (if ( = mode 3 ) 
          (progn 
             ( setq  TEST  nil )
             ( setq  pt2 dyncpt )
             (entmake 
                   (list     
                         (cons 0 "LINE")
(cons 10 3pt  )
(cons 11 pt2  )
(cons 62 1    )
                         (cons 8 "tmp" )
  )
             )
          ) 
       )
    )
)


1

路过

雷人
1

握手

鲜花

鸡蛋

刚表态过的朋友 (2 人)

评论 (0 个评论)

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 02:23 , Processed in 0.140912 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部