明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4599|回复: 16

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

  [复制链接]
发表于 2014-10-21 03:15 | 显示全部楼层 |阅读模式
本帖最后由 ★飞飛★ 于 2014-10-21 20:09 编辑
  1. ;;------------------------------------------------------------------
  2. (defun c:yy () ;;画引线(文字在引线端头),★飞飛★  2012.7.15编写
  3.   (setvar "cmdecho" 0)
  4.   (setq pt1 (getpoint "\n引线起点:")
  5.         pt2 (getpoint pt1 "\n下一点:")
  6.         pt3 (getpoint pt2 "\n终点:"))
  7.   (command "-layer" "m" "DIM" "c" "1" "" "" )
  8.   (command "Leader" pt1 pt2 pt3 "a" "" "n" );;;绘引线
  9.   (setq wz (getstring "\n请输入标注文字:"))
  10.   (setvar 'osmode 0)
  11.   (setq zg (* 3 (getvar "dimscale")))
  12.   (command "-style" "hztxt" "hzasc.shx,hztxt.shx" 0 0.7 0 "" "" "")
  13.   (command "-layer" "m" "TEXT" "c" "7" "" "" )
  14.   (command "text" pt3 zg "0" wz)
  15.   (if (> (car pt3) (car pt2))
  16.     (progn
  17.       (command "justifytext" (entlast) "" "ML" )
  18.       (setq ss (cdr (assoc 11 (entget (entlast)))))
  19.       (command "move" (entlast) "" ss pt3 )
  20.       (setq ss1 (polar pt3 0 (* zg 0.2))) )
  21.     (progn
  22.       (command "justifytext" (entlast) "" "MR" )
  23.       (setq ss (cdr (assoc 11 (entget (entlast)))))
  24.       (command "move" (entlast) "" ss pt3 )
  25.       (setq ss1 (polar pt3 pi (* zg 0.2))) )
  26.   )
  27.   (command "move" (entlast) "" pt3 ss1 )
  28.   (setvar 'osmode 6907)
  29.   (setvar "cmdecho" 1)
  30.   (princ)
  31. )

评分

参与人数 2明经币 +2 金钱 +50 收起 理由
spp_wall + 1 + 50 赞一个!
669423907 + 1 很给力!

查看全部评分

发表于 2017-10-10 22:59 | 显示全部楼层
麻烦哪位大师帮改进一下如图所示,谢谢了
(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)
)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2019-7-13 11:53 | 显示全部楼层
你好!是否可以修改画引线PT3时自动设置为正交模式?每次画引线都要调整正交模式
发表于 2014-10-21 09:07 | 显示全部楼层
有点贵。。。。

评分

参与人数 1明经币 +1 收起 理由
菜卷鱼 + 1 顶你一个!

查看全部评分

发表于 2014-10-21 10:13 | 显示全部楼层
看一看,谢谢。
 楼主| 发表于 2014-10-21 18:45 | 显示全部楼层
本帖最后由 ★飞飛★ 于 2014-10-21 20:51 编辑
aisr花园 发表于 2014-10-21 09:07
有点贵。。。。

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

楼主,来个演示吧!
发表于 2014-10-21 19:32 | 显示全部楼层
强烈建议取消浏览收币功能
 楼主| 发表于 2014-10-21 20:08 | 显示全部楼层
本帖最后由 ★飞飛★ 于 2014-10-21 20:11 编辑
lrd1861 发表于 2014-10-21 19:32
强烈建议取消浏览收币功能

好吧,那币比较多的朋友,记得下载完之后给赏一个半个币的吧,希望本人的劳动能得到大家的肯定和认可,哈哈,看个人大方了,当然和我一样比较穷的人,币不多的朋友就不要了,如果给我了,你就没有了哦
 楼主| 发表于 2014-10-21 20:28 | 显示全部楼层

标注效果

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

标注演示如附图所示:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2014-10-21 20:41 | 显示全部楼层
★飞飛★ 发表于 2014-10-21 20:28
标注演示如附图所示:

这个演示 用qleader 也可以做到啊
 楼主| 发表于 2014-10-21 20:47 | 显示全部楼层
本帖最后由 ★飞飛★ 于 2014-10-27 23:28 编辑
lucas_3333 发表于 2014-10-21 20:41
这个演示 用qleader 也可以做到啊

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

本版积分规则

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

GMT+8, 2024-3-29 20:35 , Processed in 0.196653 second(s), 37 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表