哪位帮我写一个程序....

寒风

哪位帮我写一个程序,平时在用CAD时经常会遇到复制单行文本的事情,复制的间隔是当前文字大小的1.5倍,但是每次都要查看当前文字的当小及输入间隔,觉得有点麻烦,能不能用程序来解决,复制方向,由光标的方向来控制.谢谢

xyp1964

2. (load "xyp_lib");加载通用函数
3. ;|
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
6. 1.在acad.lsp中增加(load"xyp_lib")
7. 2.在每个程序内增加(load"xyp_lib")
8. 3.在command下，输入(load"xyp_lib")
9. 4.在菜单.mnl中增加(load"xyp_lib")
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
11. 通用函数下载地址:
12. http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554
13. |;
14. (defun c:test ()
15.    (CMDLA0)
16.    (setq  e       (uentsel 0 '("TEXT" "MTEXT") "文本")
17.   s1     (car e)
18.   pt     (dxf 10 (entget s1))
19.   dist (* (dxf 40 (entget s1)) 1.5)
20.    )
21.    (while (setq pt2 (getpoint pt "\n复制方向<退出> : "))
22.        (setq pt3 (polar pt (angle pt pt2) dist))
23.        (command "copy" s1 "" pt pt3)
24.        (setq s1 (entlast)
25.      pt pt3
26.        )
27.    )
28.    (CMDLA1)
29. )

(load "xyp_lib");加载通用函数 ;| 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 5.将xyp_lib.vlx文件直接拽到cad屏幕 通用函数下载地址: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554 |; (defun c:test ()    (CMDLA0)    (setq  e       (uentsel 0 '("TEXT" "MTEXT") "文本")   s1     (car e)   pt     (dxf 10 (entget s1))   dist (* (dxf 40 (entget s1)) 1.5)    )    (while (setq pt2 (getpoint pt "\n复制方向<退出> : "))        (setq pt3 (polar pt (angle pt pt2) dist))        (command "copy" s1 "" pt pt3)        (setq s1 (entlast)      pt pt3        )    )    (CMDLA1) )

寒风

能不能不用不加载"通用函数"写吗?

meflying

说的也是,就一个简单的程序还要加载两个东西,,,


看你的通用函数也不是需要保密的有一定工作量的函数,何不公开让人直接复制?


至于技巧方面的问题,这里很多人都公开了许多技巧性很强,很实用的函数,大家交流,不需要这么保密吧

xyp1964

寒风发表于2005-6-24 8:55:00能不能不用不加载\"通用函数\"写吗?

可以不用这个超“简单的程序”。 等待高手出现，呵呵……

寒风

没人帮忙写啊

meflying

2楼程序改编:

2. (defun c:test ()
3.    (setq e       (ssget '((0 . "TEXT,MTEXT")))
4.   s1     (ssname e 0)
5.   pt     (cdr (assoc 10 (entget s1)))
6.   dist (* (cdr (assoc 40 (entget s1))) 1.5)
7.    )
8.    (while (setq pt2 (getpoint pt "\n复制方向<退出> : "))
9.        (setq pt3 (polar pt (angle pt pt2) dist))
10.        (command "copy" s1 "" pt pt3)
11.        (setq s1 (entlast)
12.      pt pt3
13.        )
14.    )
15. )

(defun c:test ()    (setq e       (ssget '((0 . "TEXT,MTEXT")))   s1     (ssname e 0)   pt     (cdr (assoc 10 (entget s1)))   dist (* (cdr (assoc 40 (entget s1))) 1.5)    )    (while (setq pt2 (getpoint pt "\n复制方向<退出> : "))        (setq pt3 (polar pt (angle pt pt2) dist))        (command "copy" s1 "" pt pt3)        (setq s1 (entlast)      pt pt3        )    ) )

leeyuan

还是飞斑竹大功无私，我替广大菜鸟们在精神道义上表示支持，谢谢！

寒风

谢谢各位。

kaixinmao

记得好像哪里有个avert text的函数，可以平均分配文本。我ｃａｄ写说明书多是乱写一气，然后用它弄整齐。