[求助]编程高手帮忙，一个小程序的困惑!!

chaisen

 

谁可以编辑这样一个lisp程序,用以实现直接拖拽整个标注的方向，箭头长度，和输入上下半圆的文字。

谢谢！！

ZZXXQQ

不知道上下半圆的文字输入有什么要求？有一个动态序号球的小程序，也许能有用。

3. (defun c:test (/ h r sn p0 ceo teo leo p1 k p)
4. (setq h (getvar "dimscale")
5.        h (* (if (= h 0) 1 h) (getvar "dimtxt"))
6.        r h sn 1)
7. (while (setq p0 (getpoint "\nPick Insert Point:"))
8.   (command "circle" p0 r)
9.   (setq ceo (entget (entlast)))
10.   (command "text" "j" "m" p0 h 0 (itoa sn) "")
11.   (setq teo (entget (entlast)))
12.   (command "leader" p0 (polar p0 (/ pi 4) 0.1)  "" "" "n")
13.   (setq leo (entget (entlast)))
14.   (setq p1 (cdr (assoc 10 leo)) k 1)
15.   (while (/= k 3)
16.    (setq p (grread T))
17.    (setq k (car p) p (cadr p))
18.    (setq ceo (subst (cons 10 p) (assoc 10 ceo) ceo))
19.    (entmod ceo)
20.    (setq teo (subst (cons 11 p) (assoc 11 teo) teo))
21.    (entmod teo)
22.    (setq p (polar p (angle p p1) r))
23.    (setq leo (subst (cons 10 p) (assoc 10 (reverse leo)) leo))
24.    (entmod leo)
25.   )
26.   (setq sn (1+ sn))
27. )
28. (princ)
29. )

(defun c:test (/ h r sn p0 ceo teo leo p1 k p) (setq h (getvar "dimscale")        h (* (if (= h 0) 1 h) (getvar "dimtxt"))        r h sn 1) (while (setq p0 (getpoint "\nPick Insert Point:"))   (command "circle" p0 r)   (setq ceo (entget (entlast)))   (command "text" "j" "m" p0 h 0 (itoa sn) "")   (setq teo (entget (entlast)))   (command "leader" p0 (polar p0 (/ pi 4) 0.1)  "" "" "n")   (setq leo (entget (entlast)))   (setq p1 (cdr (assoc 10 leo)) k 1)   (while (/= k 3)    (setq p (grread T))    (setq k (car p) p (cadr p))    (setq ceo (subst (cons 10 p) (assoc 10 ceo) ceo))    (entmod ceo)    (setq teo (subst (cons 11 p) (assoc 11 teo) teo))    (entmod teo)    (setq p (polar p (angle p p1) r))    (setq leo (subst (cons 10 p) (assoc 10 (reverse leo)) leo))    (entmod leo)   )   (setq sn (1+ sn)) ) (princ) )

chaisen

ZZXXQQ发表于2007-1-19 8:30:00不知道上下半圆的文字输入有什么要求？有一个动态序号球的小程序，也许能有用。(defun c:test (/ h r sn p0 ceo teo leo p1 k p) (setq h (getvar \"dimscale\")    

谢谢斑竹的回复,本人万分感谢!您的程序给了本人一些思路,再次谢谢斑竹!

还有一个小问题,本人初学lisp语言，不知编辑完一个语言如何像CAD里那样利用工具栏的按钮便可搞定，省去敲击命令调出的麻烦？谢谢！

ZZXXQQ

楼主是又想马儿跑，又想马儿不吃草！

tcsl9621

要是CAD2006以后的版本你可以建个动态块。不用编程。

chaisen

在amdtpp中的Desktop注释工具菜单中的基准目标符号和这个图形差不多，但运用到图中往往比例大小和现图不一致，要从新调整很是麻烦，请问高人有什么办法解决此问题吗？或者告知此工具的源代码在什么地方也可以，小弟不胜感谢的！！(mdt6)

chaisen

cad2000源程序在哪个文件中呢？

chaisen

请朋友们帮帮忙!