API应用用Text标注线长

st788796 · 发表于 2013-11-18 15:47:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:tt (/ ss zh)
(if
(and (setq ss (ssget '((0 . "*line,arc,ellipse"))))
(progn
(if (= (setq
zh (getstring (strcat "\n字高<"
(rtos (getvar "textsize") 2 2)
">: "
)
)
)
""
)
(setq zh (getvar "textsize"))
(setvar "textsize" (distof zh))
)
(setq zh (getvar "textsize"))
)
)
(mapcar '(lambda (x / d pmid an txt1 txt2)
(setq d (xdrx_curve_getdistatpoint
x
(xdrx_curve_getendpoint x)
)
pmid (cadr (xdrx_curve_getpoint x))
an (XD::Geom:AngleFormat
(angle '(0. 0. 0.)
(vlax-curve-getfirstderiv
x
(vlax-curve-getparamatpoint x pmid)
)
)
)
txt1 (xdrx_text_make
pmid
"长度是"
zh
an
)
txt2 (xdrx_text_make
pmid
(rtos d)
zh
an
)
)
(xdrx_text_setvermode txt1 1);_顺序不同会自动调整位置
(xdrx_text_sethozmode txt1 1)
(xdrx_text_setvermode txt2 3)
(xdrx_text_sethozmode txt2 1)
)
(xdrx_pickset->ents ss)
)
)
(princ)
)

(defun c:tt (/ ss zh) 
  (if 
    (and (setq ss (ssget '((0 . "*line,arc,ellipse")))) 
         (progn 
           (if (= (setq 
                    zh (getstring (strcat "\n字高<" 
                                          (rtos (getvar "textsize") 2 2) 
                                          ">: " 
                                  ) 
                       ) 
                  ) 
                  "" 
               ) 
             (setq zh (getvar "textsize")) 
             (setvar "textsize" (distof zh)) 
           ) 
           (setq zh (getvar "textsize")) 
         ) 
    ) 
     (mapcar '(lambda (x / d pmid an txt1 txt2) 
                (setq d           (xdrx_curve_getdistatpoint 
                             x 
                             (xdrx_curve_getendpoint x) 
                           ) 
                      pmid (cadr (xdrx_curve_getpoint x)) 
                      an   (XD::Geom:AngleFormat 
                             (angle '(0. 0. 0.) 
                                    (vlax-curve-getfirstderiv 
                                      x 
                                      (vlax-curve-getparamatpoint x pmid) 
                                    ) 
                             ) 
                           ) 
                      txt1 (xdrx_text_make 
                             pmid 
                             "长度是" 
                             zh 
                             an 
                           ) 
                      txt2 (xdrx_text_make 
                             pmid 
                             (rtos d) 
                             zh 
                             an 
                           ) 
                ) 
                (xdrx_text_setvermode txt1 1);_顺序不同会自动调整位置 
                (xdrx_text_sethozmode txt1 1) 
                (xdrx_text_setvermode txt2 3) 
                (xdrx_text_sethozmode txt2 1) 
              ) 
             (xdrx_pickset->ents ss) 
     ) 
  ) 
  (princ) 
)

铁丝网 · 发表于 2014-1-14 13:51:39

为什么出现这个？

XD::GEOM:ANGLEFORMAT

我的广易精通 · 发表于 2017-7-15 18:12:00

多数源码加载后命令都没用

Lisphk · 发表于 2017-7-15 18:27:23

我的广易精通发表于 2017-7-15 18:12

你加载了XDRX API 或者安装了晓东工具箱吗？

我的广易精通 · 发表于 2017-7-15 18:58:40

Lisphk 发表于 2017-7-15 18:27

是这样啊，谢谢，我试试，API在哪里下载啊

Lisphk · 发表于 2017-7-15 20:26:13

我的广易精通发表于 2017-7-15 18:58

论坛最顶上两个大图片链接，还有，每日插件论坛里面每个插件介绍下面有个温馨提示里面的链接。

igood · 发表于 2017-12-29 10:46:55

谢谢，可以批量标注了

dyjwyqz5221 · 发表于 2017-12-29 17:01:48

学习下，很有用的东东，点赞

账号		自动登录	找回密码
密码			立即注册

[每日一码] API应用用Text标注线长

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块

[每日一码] API应用 用Text标注线长

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块

[每日一码] API应用用Text标注线长