引线端部快捷文字标注。引线与文字自动分层，且文字能自适应引线比例大小、高宽比

★飞飛★ · 发表于 2014-10-21 03:15:39

本帖最后由 ★飞飛★ 于 2014-10-21 20:09 编辑

;;------------------------------------------------------------------
(defun c:yy () ;;画引线（文字在引线端头）,★飞飛★ 2012.7.15编写
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\n引线起点:")
pt2 (getpoint pt1 "\n下一点:")
pt3 (getpoint pt2 "\n终点:"))
(command "-layer" "m" "DIM" "c" "1" "" "" )
(command "Leader" pt1 pt2 pt3 "a" "" "n" );;;绘引线
(setq wz (getstring "\n请输入标注文字:"))
(setvar 'osmode 0)
(setq zg (* 3 (getvar "dimscale")))
(command "-style" "hztxt" "hzasc.shx,hztxt.shx" 0 0.7 0 "" "" "")
(command "-layer" "m" "TEXT" "c" "7" "" "" )
(command "text" pt3 zg "0" wz)
(if (> (car pt3) (car pt2))
(progn
(command "justifytext" (entlast) "" "ML" )
(setq ss (cdr (assoc 11 (entget (entlast)))))
(command "move" (entlast) "" ss pt3 )
(setq ss1 (polar pt3 0 (* zg 0.2))) )
(progn
(command "justifytext" (entlast) "" "MR" )
(setq ss (cdr (assoc 11 (entget (entlast)))))
(command "move" (entlast) "" ss pt3 )
(setq ss1 (polar pt3 pi (* zg 0.2))) )
)
(command "move" (entlast) "" pt3 ss1 )
(setvar 'osmode 6907)
(setvar "cmdecho" 1)
(princ)
)

;;------------------------------------------------------------------ 
(defun c:yy () ;;画引线（文字在引线端头）,★飞飛★  2012.7.15编写 
  (setvar "cmdecho" 0) 
  (setq pt1 (getpoint "\n引线起点:") 
        pt2 (getpoint pt1 "\n下一点:") 
        pt3 (getpoint pt2 "\n终点:")) 
  (command "-layer" "m" "DIM" "c" "1" "" "" ) 
  (command "Leader" pt1 pt2 pt3 "a" "" "n" );;;绘引线 
  (setq wz (getstring "\n请输入标注文字:")) 
  (setvar 'osmode 0) 
  (setq zg (* 3 (getvar "dimscale"))) 
  (command "-style" "hztxt" "hzasc.shx,hztxt.shx" 0 0.7 0 "" "" "") 
  (command "-layer" "m" "TEXT" "c" "7" "" "" ) 
  (command "text" pt3 zg "0" wz) 
  (if (> (car pt3) (car pt2)) 
    (progn 
      (command "justifytext" (entlast) "" "ML" ) 
      (setq ss (cdr (assoc 11 (entget (entlast))))) 
      (command "move" (entlast) "" ss pt3 ) 
      (setq ss1 (polar pt3 0 (* zg 0.2))) ) 
    (progn 
      (command "justifytext" (entlast) "" "MR" ) 
      (setq ss (cdr (assoc 11 (entget (entlast))))) 
      (command "move" (entlast) "" ss pt3 ) 
      (setq ss1 (polar pt3 pi (* zg 0.2))) ) 
  ) 
  (command "move" (entlast) "" pt3 ss1 ) 
  (setvar 'osmode 6907) 
  (setvar "cmdecho" 1) 
  (princ) 
)

669423907 · 发表于 2017-10-10 22:59:27

麻烦哪位大师帮改进一下如图所示，谢谢了
(defun c:`w()
  (setq pt1 (getpoint "\n引线起点:")
      pt2 (getpoint pt1 "\n下一点:")
      pt3 (getpoint pt2 "\n终点:"))
  (command "Leader" pt3 pt2 pt1 "a" "" "n" );;;绘引线 pt3
;  (setq wz (getstring "\n请输入标注文字:"))

(setq osmode (getvar 'osmode)) ;记录捕捉
(setvar 'osmode 0)          ;关闭捕捉

(setq zigao (* (getvar "dimtxt") (getvar "dimscale")))
(if (= wz nil) (setq wz "A"))
  (command "text" pt3 zigao "0" wz "chprop" (entlast) "" "p" "la" "4标注" "c" "2" "")
  (if (> (car pt3) (car pt2))
(progn
   (command "justifytext" (entlast) "" "ML" )
   (setq ss (cdr (assoc 11 (entget (entlast)))))
   (command "move" (entlast) "" ss pt3)
   (setq pt4 (polar pt3 0 (* 0.3 zigao))) )
(progn
   (command "justifytext" (entlast) "" "MR" )
   (setq ss (cdr (assoc 11 (entget (entlast)))))
   (command "move" (entlast) "" ss pt3)
   (setq pt4 (polar pt3 pi (* 0.3 zigao))) )
  )
  (command "move" (entlast) "" pt3 pt4 )
(setvar 'osmode osmode)       ;恢复捕捉
(setq ss (ssadd))
(setq ss (ssadd (entlast) ss))
(sssetfirst nil ss)
(command "ddedit" "")
  (princ)
)

蓝盾设计 · 发表于 2019-7-13 11:53:52

你好!是否可以修改画引线PT3时自动设置为正交模式?每次画引线都要调整正交模式

aisr花园 · 发表于 2014-10-21 09:07:50

有点贵。。。。

yunfengning · 发表于 2014-10-21 10:13:09

看一看，谢谢。

★飞飛★ · 发表于 2014-10-21 18:45:04

本帖最后由 ★飞飛★ 于 2014-10-21 20:51 编辑

aisr花园发表于 2014-10-21 09:07
有点贵。。。。

呵呵，我也想降点下来，对于我们这类穷人来说，一个是有点贵啊，但明经里面最低就是一个呢。虽然这里做这种引线的程序也不少，但各有特点，因为原创，相信对学习源码思路的童鞋还是有一定帮助的。这论坛里面有一个我回复别人的同样的源代码，如果像我一样的穷人，建议去搜索一下，呵呵，这个要一个币是对于有钱钱的童鞋来说请给点个赞，给点辛苦费用哦（但这个小程序很简洁实用，相信一定会物超所值的），自己有了币也才能学习一些别人的代码，然后相互学习共同提高嘛

lucas_3333 · 发表于 2014-10-21 19:09:06

★飞飛★ 发表于 2014-10-21 18:45
呵呵，我也想降点下来，对于我们这类穷人来说，一个是有点贵啊，但明经里面最低就是一个呢。虽然这里做这 ...

楼主,来个演示吧!

lrd1861 · 发表于 2014-10-21 19:32:24

强烈建议取消浏览收币功能

★飞飛★ · 发表于 2014-10-21 20:08:30

本帖最后由 ★飞飛★ 于 2014-10-21 20:11 编辑

lrd1861 发表于 2014-10-21 19:32
强烈建议取消浏览收币功能

好吧，那币比较多的朋友，记得下载完之后给赏一个半个币的吧，希望本人的劳动能得到大家的肯定和认可，哈哈，看个人大方了，当然和我一样比较穷的人，币不多的朋友就不要了，如果给我了，你就没有了哦

★飞飛★ · 发表于 2014-10-21 20:28:54

本帖最后由 ★飞飛★ 于 2014-10-21 20:35 编辑

标注演示如附图所示：

lucas_3333 · 发表于 2014-10-21 20:41:26

★飞飛★ 发表于 2014-10-21 20:28
标注演示如附图所示：

这个演示用qleader 也可以做到啊

★飞飛★ · 发表于 2014-10-21 20:47:01

本帖最后由 ★飞飛★ 于 2014-10-27 23:28 编辑

lucas_3333 发表于 2014-10-21 20:41
这个演示用qleader 也可以做到啊

没研究过，有个效果截图就行了吧，当然重点不在这个，在内容上面。当然，愿意帮忙的童鞋可以用本程序做一个动态演示的出来，方便大家，呵呵
qleader做出来效果看似一样，但我这个是有很大区别的，一般大家都是用qleader命令，我当然也是用过的，如果qleader好用的话我也不会费心思再搞一个的啊，呵呵。

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

[源码] 引线端部快捷文字标注。引线与文字自动分层，且文字能自适应引线比例大小、高宽比

评分

相关帖子

本帖子中包含更多资源

评分

标注效果

本帖子中包含更多资源