求tssd2.5版本到2.8版本任一版本， 比例绘图功能可用

zag0666

花了“巨大”代价  解决了。 内容已经更改 希望哪位大神路过能解决已更改的问题即可

此程序是“叮咚”帮我写的"控制尺寸界线原点到尺寸线的距离"的 程序。 红色的是自己添加的。
有两点瑕疵：
1.  标注时，连续两次都运用“两点之间的中点”有时会出错。会捕捉到端点什么的。
2.  标注圆心时，如果圆心离别的线段的端点太近也会出错。
希望大神们路过能帮忙完善一下, 可否保留捕捉而不出错。

(defun newerr(msg)
(command)
(command)
(setq *error* olderr)
(command "_.undo" "_e")
(setvar "cmdecho" 1)
)
(defun start()
(setvar "cmdecho" 0)
(setq olderr *error* *error* newerr)
(command "_.undo" "_be")
(initget 1)
(setq pt01 (getpoint "\n指定第一点:"))
)

(defun c:cb(/ pt01 pt02 pt03 pt04 en data ang olderr) (Command "osmode" "7607" ) (setvar "clayer" "标注")
(start)
(command "_.dimlinear" pt01 (progn (princ "\n指定下一点:") pause)
(progn (setq pt03 (getpoint "\n指定尺寸线参考点<空格取消指定>:"))(princ "\n指定位置:") pause)
)
(while (= (logand (getvar "CmdActive") 1) 1)
(command pause)
)
(setq en (entlast) data (entget en))
(if pt03
(progn
(setq pt04 (cdr (assoc 10 data)))
(setq pt02 (cdr (assoc 14 data)))
(setq ang (angle pt02 pt04))
(setq pt03 (polar pt03 ang 5))
(if (or (equal ang 0 0.001)(equal ang pi 0.001)(equal ang (* 2 pi) 0.001))
(setq pt04 (cons (car pt03)(cdr pt04)))
(setq pt04 (list (car pt04)(cadr pt03)(last pt04)))
)
(setq data (subst (cons 10 pt04) (assoc 10 data) data))
(entmod data)
)
)
(newerr nil)
(princ)
)

(defun c:bc(/ pt01 pt02 pt03 pt04 en data ang olderr) (Command "osmode" "7607" ) (setvar "clayer" "标注")
(start)
(command "_.dimaligned" pt01 (progn (princ "\n指定下一点:") pause)
(progn (setq pt03 (getpoint "\n指定尺寸线参考点<空格取消指定>:"))(princ "\n指定位置:") pause)
)
(while (= (logand (getvar "CmdActive") 1) 1)
(command pause)
)
(setq en (entlast) data (entget en))
(if pt03
(progn
(setq pt04 (cdr (assoc 10 data)))
(setq pt02 (cdr (assoc 14 data)))
(setq ang (angle pt02 pt04))
(setq pt04 (polar pt03 ang 5))
(setq data (subst (cons 10 pt04) (assoc 10 data) data))
(entmod data)
)
)
(newerr nil)
(princ)
)

zag0666

adc 发表于 2012-9-11 09:34
怎么会要这种古董？现在都2012了，我有2.7，不过22M,论坛传不上来

你好 我所有版本也都有的
但是我的3.0以下版本的  比例绘图功能 用不了（可能是我不会用还是什么的）
所以  我才求助的

各位有可用的 请联系   谢谢了！

wudi

什么东东，给这么大奖？

lidaxiu

没看到楼主的主题啊？

仲文玉

无名侠，无名程序

zag0666

将错就错了 ，这样也挺好。

hao3ren

http://bbs.mjtd.com/forum.php?mo ... #pid453734pid453734

zag0666

hao3ren 发表于 2012-8-13 13:31
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=85586&page=1#pid453734pid453734

这个帖子我看过  ，没看懂。
我不懂编程，还是看程序好。
我用了，目的达到了就好了

注册

zag0666

这么大笔“巨款”   怎就没人来“认领”呢？[em0]

longer1000

zag0666 发表于 2012-8-14 22:13
这么大笔“巨款”   怎就没人来“认领”呢？

就是啊，帮顶下