API应用标注倒角(引线或标注长度)

st788796 · 发表于 2014-1-7 10:43:45

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

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

×

本帖最后由 st788796 于 2014-1-7 10:46 编辑

测试中用了固定字高，没有检测是否连接为弧线段

(defun c:tt (/ e index -index+ ipt pts kw dl ld ip mt mp)
(while (progn
(initget "1 2")
(setq kw (getkword "\n[1 - 引线/2 - 标注]: "))
)
(while (setq e (xdrx_entsel "\nPick Pline: "))
(setq index (fix (apply 'xdrx_curve_getparamatpoint e))
e (car e)
-index+ (xd::Polyline:-Index+ e index)
pts (xdrx_polyline_getlinesegat e index)
ipt (apply 'inters
(append
(apply 'append
(mapcar '(lambda (x)
(xdrx_polyline_getlinesegat e x)
)
-index+
)
)
'(nil)
)
)
dl (mapcar '(lambda (x) (distance ipt x)) pts)
)
(or (and (= kw "1")
(setq mp (apply 'xdrx_line_midp pts)
ip (polar ipt 0. 10.)
ld (xdrx_leader_make mp ipt)
mt (xdrx_mtext_make
(mapcar '+ '(0. 16. 0.) ip)
(xdrx_string_join
(mapcar 'vl-princ-to-string dl)
"x"
)
0.
10.
)
)
(xdrx_setpropertyvalue ld "SetToStraightLeader" t)
(xdrx_setpropertyvalue ld "AttachAnnotation" mt)
)
(and (= kw "2")
(xdrx_dimension_makerotate
(car pts)
ipt
(polar ipt (angle (cadr pts) ipt) 10.)
(angle (car pts) ipt)
)
(xdrx_dimension_makerotate
(cadr pts)
ipt
(polar ipt (angle (car pts) ipt) 10.)
(angle (cadr pts) ipt)
)
)
)
)
)
(princ)
)

(defun c:tt (/ e index -index+ ipt pts kw dl ld ip mt mp) 
  (while (progn 
           (initget "1 2") 
           (setq kw (getkword "\n[1 - 引线/2 - 标注]: ")) 
         ) 
    (while (setq e (xdrx_entsel "\nPick Pline: ")) 
      (setq index   (fix (apply 'xdrx_curve_getparamatpoint e)) 
            e            (car e) 
            -index+ (xd::Polyline:-Index+ e index) 
            pts            (xdrx_polyline_getlinesegat e index) 
            ipt            (apply 'inters 
                           (append 
                             (apply 'append 
                                    (mapcar '(lambda (x) 
                                               (xdrx_polyline_getlinesegat e x) 
                                             ) 
                                            -index+ 
                                    ) 
                             ) 
                             '(nil) 
                           ) 
                    ) 
 
            dl            (mapcar '(lambda (x) (distance ipt x)) pts) 
      ) 
      (or (and (= kw "1") 
               (setq mp        (apply 'xdrx_line_midp pts) 
                     ip        (polar ipt 0. 10.) 
                     ld        (xdrx_leader_make mp ipt) 
                     mt        (xdrx_mtext_make 
                          (mapcar '+ '(0. 16. 0.) ip) 
                          (xdrx_string_join 
                            (mapcar 'vl-princ-to-string dl) 
                            "x" 
                          ) 
                          0. 
                          10. 
                        ) 
               ) 
               (xdrx_setpropertyvalue ld "SetToStraightLeader" t) 
               (xdrx_setpropertyvalue ld "AttachAnnotation" mt) 
          ) 
          (and (= kw "2") 
               (xdrx_dimension_makerotate 
                 (car pts) 
                 ipt 
                 (polar ipt (angle (cadr pts) ipt) 10.) 
                 (angle (car pts) ipt) 
               ) 
               (xdrx_dimension_makerotate 
                 (cadr pts) 
                 ipt 
                 (polar ipt (angle (car pts) ipt) 10.) 
                 (angle (cadr pts) ipt) 
               ) 
          ) 
      ) 
    ) 
  ) 
  (princ) 
)

lucas3 · 发表于 2014-1-7 11:21:07

老大，下载不了2014版的API，测试不了啊

lucas3 · 发表于 2014-1-7 11:21:40

本帖最后由 lucas3 于 2014-1-7 11:25 编辑

怎么发了两次，不好意思，网络慢影响的

newer · 发表于 2014-1-7 11:27:08

lucas3 发表于 2014-1-7 11:21
老大，下载不了2014版的API，测试不了啊

那你就装个其他版本CAD嘛。

lucas3 · 发表于 2014-1-7 11:31:24

newer 发表于 2014-1-7 11:27
那你就装个其他版本CAD嘛。

之前装的2007 ，出问题了，刚换成2014
{:soso_e149:}

newer · 发表于 2014-1-7 11:39:49

lucas3 发表于 2014-1-7 11:31
之前装的2007 ，出问题了，刚换成2014

那你就用API写几个小工具，贴上来，然后找老大要下载密码了。

lucas3 · 发表于 2014-1-7 11:50:06

ST788796 ,说到做到非常好！，标注到角的lisp我已经有了，想看看你用API写的效果，现在没有API也测不了，但看到你贴的图，像100*100 这种应该标C100 ,这种倒角边相等的叫C角

st788796 · 发表于 2014-1-7 11:52:24

lucas3 发表于 2014-1-7 11:50
ST788796 ,说到做到非常好！，标注到角的lisp我已经有了，想看看你用API写的效果，现在没有API也测不了，但 ...

把
(xdrx_string_join
      (mapcar 'vl-princ-to-string dl)
      "x"
   )
改成
(strcat "C" (itoa (car dl)))
即可

lucas3 · 发表于 2014-1-16 22:45:45

st788796 发表于 2014-1-7 11:52
把
(xdrx_string_join
(mapcar 'vl-princ-to-string dl)

改了之后就变成 Pick Pline: ; 错误: 参数类型错误: fixnump: 3.0

lucas3 · 发表于 2014-1-16 22:50:36

装了10版测试了一下，发现一个问题，标注放置位置是固定的，当选择倒角边，标注就自动放置了，如果能任意放置位置就好了，因此要考虑到尺寸避让等因素

[发布] API应用标注倒角(引线或标注长度)

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

点评

点评

点评

点评

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

[发布] API应用 标注倒角(引线或标注长度)

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

点评

点评

点评

点评

[发布] API应用标注倒角(引线或标注长度)