标注时，设置尺寸界线原点到尺寸线的距离

zag0666

此程序可以在水平和垂直方向的标注中设置尺寸界线原点到尺寸线的距离(非连续标注、基线标注)
还有以下几点需要完善，如有大神能完善不胜感激！ 或者我付与你报酬也可以
1.    标注时，如第一点和第二点不在一条直线上，会移动尺寸界线原点（要求原点不能动）
2.   希望能以点击的第三点的位置计算尺寸界线的值并判定放置的方向

程序作者：叮咚
(defun c:abc(/ olderr dis en pt1 pt2 pt3 ang data d_ang d_dis)
(setvar "cmdecho" 0)
(command "_.undo" "_be")
(defun newerr(msg)
(command)
(command)
(setq *error* olderr)
(command "_.undo" "_e")
(setvar "cmdecho" 1)
)
(setq olderr *error* *error* newerr)
(setq dis 5);;;;这是要改的地方
(command "_.dimlinear" (setq pt1 (getpoint "\n第一点:"))(setq pt2 (getpoint pt1 "\n第二点:")) (progn (princ "\n指定位置:") pause))
(setq en (entlast) data (entget en))
(setq pt3 (cdr (assoc 10 data)))
(setq ang (angle pt3 pt2))
(defun x (pt)
(car pt)
)
(defun gx(num aa)
(setq data (subst (cons num aa) (assoc num data) data))
)
(setq pt2 (polar pt3 ang dis))
(if (= (x pt3)(x pt2))
(setq pt01 (list (car pt1) (cadr pt2)(nth 2 pt1)))
(setq pt01 (cons (x pt2)(cdr pt1)))
)
(setq d_ang (angle pt01 pt1) d_dis (distance pt01 pt1) pt2 (polar pt2 d_ang d_dis) pt3 (polar pt3 d_ang d_dis))

(gx 10 pt3)
(gx 14 pt2)
(entmod data)
(command "_.dimcontinue" (progn (princ "\n指定下一点:") pause))
(while (null (equal en (entlast)))
(command "" "")
(setq en (entlast) data (entget en))
(setq pt3 (cdr (assoc 10 data)))
(setq pt2 (polar pt3 ang dis))
(gx 14 pt2)
(entmod data)
(command "_.dimcontinue" (progn (princ "\n指定下一点:") pause))
)
(command "")

(newerr nil)
(princ)
)

zmzk

用处不大，白浪费1个币子

xuzhigangrene

看看

preone

这个 ~~ 可以亮出源代码~哈哈~~

zag0666

这不是我写的
是叮咚热心帮助写的   
我想给点小报酬   他不要   我只好把他的东西拿来卖
看能否赚点  

好似还有点问题，如果不能解决 我会把钱退还


能否再更新下修改任意角度的？-------------这个解决不了呢

zag0666

  高手们醒醒

daiguafan

连续标注程序，论坛很多啊

zag0666

[em0]  好似能解决我的问题的没有吧？ 诚恳请 给个链接   

zag0666

花了钱却没有搞定，终于今天不经意看到Gu_xl 去年给我帮助的帖子。(叮咚 给我的帮助都是免费的)
原来这么简单！正是激动啊！  哈哈哈。。。。。
在此感谢Gu_xl ！！！

如果你采用了我的方法，请顶一次贴，画机械图纸的应该都喜欢吧

(DEFUN C:1()  (Command "DIMLINEAR"  pause  pause "tk" pause))

zag0666

叮咚给我写了个完美版的，本来想发上来。在此表示万分感谢！
开始是我表述不清，才导致浪费人家那么多时间。（也确实不是很好表述）
观察了一下，没有人回复这帖子。考虑是高价卖出那，还是。。。

zag0666

想想佛祖都要收钱  我还是收点吧