[求助]：尺寸标注后，想增加边线的lisp

welldone · 发表于 2002-6-16 09:14:10

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

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

×

哪位高手愿写一个增加边线的lisp呢。

welldone · 发表于 2002-6-16 09:18:38

我的天正在win2000下加了补丁，增加边线不能用，传给大家这个补丁，是在其他地方得到的

welldone · 发表于 2002-6-16 09:22:50

该补丁是我收集的补丁最完善的，只有尺寸标注中部分不能用，愿各位可以补充不能用的lisp

青马 · 发表于 2002-6-22 23:56:10

(defun c:vg (/ tf dmlist tbl dmname dm dv n)
(setq
tf
   t
dmlist '()

  )
  (while (setq tbl (tblnext "dimstyle" tf))
(setq dmname (cdr (assoc 2 tbl)))
(if (/= dmname "")
   (setq dmlist (cons dmname dmlist))
)
(setq tf nil)
  )
  (foreach n dmlist
(progn
   (setq dm n)

   (command "dimstyle" "r" dm)
   (command "dimse1" "off")
   (command "dimse2" "off")
   (command "dimstyle" "s" dm "y")
)
  )
  (command "dimstyle" "r" dv)
  (princ)
) ; 尺寸加边线

e2002 · 发表于 2002-6-23 00:21:55

最初由 welldone 发布
[B]哪位高手愿写一个增加边线的lisp呢。 [/B]

看这里:

下载地址：http://www.xdcad.net/tech/ddim1.swf

<embed src=http://www.xdcad.net/tech/ddim1.swf quality=high width=640 height=480 loop=true type="application/x-shockwave-flash">
</embed>

e2002 · 发表于 2002-6-23 00:28:00

最初由 welldone 发布
[B]哪位高手愿写一个增加边线的lisp呢。 [/B]

我写了一个.

你可以在我的小工具集里找到.

有两个程序: 一个是切换ExtensionLine是否显示,另一个是直接设置是否显示ExtensionLine,

都支持批量选择修改

这是直接操纵Dimension对象本身的ExtensionLine属性,无需修改Dimension对象的Dimstyle属性.

Only for a2k+

青马 · 发表于 2002-6-23 00:42:56

我的那个没有在2000下试用,是14下的,可能是2000也可以的,我的那个命令不用选,直接就把图中所有标注类型都加了边线,比较的傻瓜

XDSoft · 发表于 2002-6-23 00:49:53

;|
命令：dim_res1

功能：修补尺寸，给选取的尺寸实体加上两条边界线
说明：1、程序兼容天正系列、理正建筑、电气的图纸。
      2、程序考虑了天正系列、理正系列的不同比例的标注样式和XD工具箱的不同比例出图的设置。
      3、需要在晓东工具箱环境即：XDRX_API BUILD20506以上版本运行
      对程序建议请到：晓东CAD空间论坛－http://www.xdcad.net/forum提出
|;

[FONT=courier new]
(defun c:dim_res1 (/ ss dna scl dna1)
(prompt "\n请选取要修补界线的尺寸标注[All-全选]<退出>:")
(if (setq ss (ssget '((0 . "dimension"))))
(progn
(xdrx_begin)
(xdrx_srchdim "normal")
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq dna (xdrx_getentdxf 3)
scl (substr dna 5)
dna1 (substr dna 1 4)
)
(if (not (wcmatch dna1 "DIMN,DIMA,DIMB,DIMT,DIMU,DIMV,AXIT,AXIS,ANGL"))
(setq scl "")
)
(xdrx_modent 3 (strcat "dimn" scl))
)
(xdrx_end)
)
)
(princ)
)
[/FONT]

lfc9861 · 发表于 2002-6-26 22:07:05

不错的东西，
今天我可下载浏览了很多不错的东西！

caibaobao · 发表于 2002-6-29 17:04:38

晓东的工具箱好久没有更新了，建议晓东把类似上述的修改作一个专门的升级补丁放在首页的显眼处吧，那个大事记太小了：）
又：什么时候到上海通知我一声，我请你喝酒！

XDSoft · 发表于 2002-6-29 17:09:56

最初由 caibaobao 发布
[B]晓东的工具箱好久没有更新了，建议晓东把类似上述的修改作一个专门的升级补丁放在首页的显眼处吧，那个大事记太小了：）
又：什么时候到上海通知我一声，我请你喝酒！ [/B]

谢谢!!, EACHY斑竹刚从上海回来. 我以后去上海,一定找你.

工具箱过几天更新,明天先更新XDRX_API.

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

[求助]：尺寸标注后，想增加边线的lisp

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

相关帖子

Re: [求助]：尺寸标注后，想增加边线的lisp

Re: [求助]：尺寸标注后，想增加边线的lisp

晓东工具箱－新增命令“修补尺寸”