小懒人CAD工具箱  LISP插件

首页 >> 精选插件 >>代码分享 >> CAD多段线两点距离快速标注_小懒人CAD工具箱_CAD插件_CASS插件_LISP代
详细内容

CAD多段线两点距离快速标注_小懒人CAD工具箱_CAD插件_CASS插件_LISP代

时间:2019-01-21     作者:逆流而上的鱼【原创】   阅读

CAD多段线两点距离快速标注_小懒人CAD工具箱_CAD插件_CASS插件_LISP代

CAD标注,距离标注,CAD插件

两点快速标注.gif


1547886832395186.gif

(vl-load-com)
(defun c:tt();;;;;;快速标注距离
  (while (setq ent1 (entsel ))
    (setq pt (cadr ent1))
    (setq ent (car ent1))
    (setq ptn (xlr_pl_top ent pt))
    (if ((length ptn)2)
      (command "dimaligned" (car ptn)(cadr ptn) pause)
      )
    )
  )

(defun xlr_pl_top (obj pls_pt / pp_listp num_ptns1)

  (setq  pp_listp  (vlax-curve-getclosestpointto obj (trans pls_pt 1 0))

  num_ptns1 (fix (vlax-curve-getparamatpoint obj pp_listp))

  )

  (list  (vlax-curve-getPointAtParam obj num_ptns1)

  (vlax-curve-getPointAtParam obj (1+ num_ptns1))

  )

)

1547886832395186.gif

电话直呼
在线客服
在线留言
发送邮件
联系我们:
15126824036
小懒人1号
点击这里给我发消息
小懒人2号
点击这里给我发消息
还可输入字符250(限制字符250)
技术支持: 建站ABC | 管理登录
×

联系电话:151  2682  4036(段)
联系QQ:736188807
联系微信:151  2682  4036
承接CAD、CASS插件开发定制出售

扫一扫加微信

关注微信公众号

小懒人CAD工具箱,拥有功能950个,免费功能400个,下载免费使用。关注微信公众号,里面分享一些插件代码及插件使用视频等CAD技能。