找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 3233|回复: 28

[编程申请]:对齐标注尺寸线起始点,结束点,尺寸界线的位置的程序!

[复制链接]
发表于 2003-5-3 02:28:36 | 显示全部楼层 |阅读模式

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

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

×
对齐标注尺寸线起始点,结束点,尺寸界线的位置的程序!谢谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
 楼主| 发表于 2003-5-5 01:48:27 | 显示全部楼层

建议:简写命令为dj.

建议:简写命令为dj
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 488个

财富等级: 日进斗金

发表于 2003-5-5 22:27:38 | 显示全部楼层
来啦

  1. ;修改<35%代码,请标明aeo
  2. ;有更好的,希望贴出来大家分享
  3. (defun c:trim-dim (/ ang e en j len olderr os pt1 pt2 pt3 pt4 ss aeoerr
  4.                      trim-dim dxf
  5.                   )
  6.   (defun dxf(a b)(cdr(assoc a b)))
  7.   (defun aeoerr (msg)
  8.     (command "_.undo" "end" ^c)
  9.     (setvar "osmode" os)
  10.     (setq *error* olderr)
  11.   )
  12.   (defun trim-dim (pt1 pt2 ss / ent entl i np13 np14 p10 p13 p14 ptt)
  13.   ; 这一; 段改自"程序(函数)库"
  14.     (setq pt1 (trans pt1 1 0)
  15.           pt2 (trans pt2 1 0)
  16.           i 0
  17.     )
  18.     (repeat (sslength ss)
  19.       (setq ent (ssname ss i)
  20.             entl (entget ent)
  21.             p10 (cdr (assoc 10 entl))
  22.             p13 (cdr (assoc 13 entl))
  23.             p14 (cdr (assoc 14 entl))
  24.             ptt (cdr (assoc 11 entl))
  25.             i (1+ i)
  26.             np14 (inters
  27.                    pt1
  28.                    pt2
  29.                    p14
  30.                    p10
  31.                    nil
  32.                  )
  33.       )
  34.       (if (not (member '(100 . "AcDbRotatedDimension") entl))
  35.         (setq np13 (polar np14 (angle p14 p13) (distance p14 p13)))
  36.         (setq np13 (inters
  37.                      pt1
  38.                      pt2
  39.                      p13
  40.                      (polar p13 (angle p14 p10) 100)
  41.                      nil
  42.                    )
  43.         )
  44.       )
  45.       (setq entl (subst
  46.                    (cons 13 np13)
  47.                    (assoc 13 entl)
  48.                    entl
  49.                  )
  50.             entl (subst
  51.                    (cons 14 np14)
  52.                    (assoc 14 entl)
  53.                    entl
  54.                  )
  55.       )
  56.       (entmod entl)
  57.     )
  58.   )                                       
  59.   ;;;;;;;
  60.   (setq os (getvar "osmode")
  61.         olderr *error*
  62.         *error* aeoerr
  63.   )
  64.   (setvar "osmode" 0)
  65.   (command "undo" "group")
  66.   (prompt "\nby aeo")
  67.   (prompt "\n不要修改的标注不要选在里面")
  68.   (if (setq ss (ssget '((0 . "DIMENSION"))))
  69.     (progn
  70.       (setq en (entget (ssname ss 0)))
  71.       (if (member '(100 . "AcDbRotatedDimension") en)
  72.         (setq ang (dxf 50 en))
  73.         (setq ang (angle (dxf 13 en) (dxf 14 en)))
  74.       )
  75.     )
  76.   )
  77.   (if (and
  78.         ang
  79.         (setq pt1 (getpoint "\n标注线位置(回车不改):"))
  80.       )
  81.     (progn
  82.       (setq pt2 (polar pt1 ang 1000)
  83.             j 0
  84.             len (sslength ss)
  85.       )
  86.       (while (< j len)
  87.         (setq e (ssname ss j)
  88.               en (entget (ssname ss j))
  89.               pt3 (dxf 10 en)
  90.               pt4 (inters
  91.                     pt1
  92.                     pt2
  93.                     pt3
  94.                     (polar pt3 (+ ang (* 0.5 pi)) 100)
  95.                     nil
  96.                   )
  97.               j (1+ j)
  98.         )
  99.         (command "move" e "" pt3 pt4)
  100.       )
  101.     )
  102.   )
  103.   (if (and
  104.         ang
  105.         (setq pt1 (getpoint "\n引出线位置(回车不改):"))
  106.       )
  107.     (trim-dim pt1 (polar pt1 ang 100) ss)
  108.   )
  109.   (setvar "osmode" os)
  110.   (setq *error* olderr)
  111.   (command "_.undo" "end")
  112.   (princ)
  113. )

如要简写命令为dj ; 把c:trim-dim改为c:DJ
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2003-5-6 20:32:13 | 显示全部楼层
非常感谢!非常感谢!非常感谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-5-16 12:20:49 | 显示全部楼层
怎么用?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-5-16 19:06:11 | 显示全部楼层
太太太太太好用拉!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-5-18 20:50:43 | 显示全部楼层
可我还是看不懂你的简写,请在简写下把
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-5-18 21:16:30 | 显示全部楼层
用起来方便,不错。谢谢了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 488个

财富等级: 日进斗金

发表于 2003-5-18 21:32:59 | 显示全部楼层
最初由 萧山 发布
[B]可我还是看不懂你的简写,请在简写下把 [/B]


第一行
(defun c:trim-dim ...

trim-dim 改成你要的字母  c:要保留
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-5-18 23:42:08 | 显示全部楼层
很好用,如果再加上些拖拉功能就好了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2003-10-28 16:31:43 | 显示全部楼层

xp+2cad2002怎么又用不了

win2000下面好像没有问题,xp里怎么有时候失灵呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-10-29 11:38:23 | 显示全部楼层
简直就是一流吗!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-10-29 12:54:39 | 显示全部楼层
小东工具里有了类似的功能了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-11-14 19:13:20 | 显示全部楼层
非常实用。谢谢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-12-30 17:50:44 | 显示全部楼层
挺好用,能不能修改一下程序,不要使用move命令移动到指定,也使用修改其组码值,这样尺寸线的起点位置还保留!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 21:17 , Processed in 0.220921 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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