各位好,求两个简单的lsp,会的帮一下我吧!谢谢

BDYCAD

第一个问题不难吧:)
第二个问题抽空做了一下:) 如下是代码,敬请参考:)

2. ;;;功能: 摆水平对象
3. ;;;编程: BDYCAD
4. ;;;时间: 2008-07-01 香港回归11周年纪日
5. (defun c:rx(/ ENAME HPT PT1 PT2 SEL SELPT)
6.   (if(setq Sel(entsel"\n请你选取要水平摆放的对象:"))
7.     (progn
8.       (setq Ename(car Sel)SelPt(cadr Sel))
9.       (setq Hpt(vlax-curve-getClosestPointTo Ename SelPt T)
10.      Pt1 Hpt Pt2(vlax-curve-getPointAtDist Ename (+ (vlax-curve-getDistAtPoint Ename Hpt) 0.1)))
11.       (setvar"cmdecho"0)
12.       (setvar "osmode" (logior (getvar "osmode") 16384));关辅捉
13.       (command".rotate"sel"" pt1"r"pt1 pt2 0)
14.       (setvar "osmode" (logand (getvar "osmode") 49151));开辅捉
15.       (setvar"cmdecho"1)
16.       (princ"\n水平摆位完成,谢谢使用,如有好的建议请联系BDYCAD:)")
17.       )
18.     (princ"\n没有选到对象,请再试一次:)")
19.     )
20.   (princ)
21.   )

;;;功能: 摆水平对象 ;;;编程: BDYCAD ;;;时间: 2008-07-01 香港回归11周年纪日 (defun c:rx(/ ENAME HPT PT1 PT2 SEL SELPT)   (if(setq Sel(entsel"\n请你选取要水平摆放的对象:"))     (progn       (setq Ename(car Sel)SelPt(cadr Sel))       (setq Hpt(vlax-curve-getClosestPointTo Ename SelPt T)      Pt1 Hpt Pt2(vlax-curve-getPointAtDist Ename (+ (vlax-curve-getDistAtPoint Ename Hpt) 0.1)))       (setvar"cmdecho"0)       (setvar "osmode" (logior (getvar "osmode") 16384));关辅捉       (command".rotate"sel"" pt1"r"pt1 pt2 0)       (setvar "osmode" (logand (getvar "osmode") 49151));开辅捉       (setvar"cmdecho"1)       (princ"\n水平摆位完成,谢谢使用,如有好的建议请联系BDYCAD:)")       )     (princ"\n没有选到对象,请再试一次:)")     )   (princ)   )

carrot1983

期待摆正块...

ZZXXQQ

这样试试：

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

caoyin

:;

2. (defun c:TT (/ SS AN N ENT)
3.   (if (and (setq SS (ssget ":S" '((0 . "*text"))))
4.            (setq AN (getangle "\n指定旋转角度: "))
5.       )
6.     (repeat (setq N (sslength SS))
7.       (setq ENT (entget (ssname SS (setq N (1- N)))))
8.       (entmod (subst (cons 50 AN) (assoc 50 ENT) ENT))
9.     )
10.   )
11.   (princ)
12. )

(defun c:TT (/ SS AN N ENT)   (if (and (setq SS (ssget ":S" '((0 . "*text"))))            (setq AN (getangle "\n指定旋转角度: "))       )     (repeat (setq N (sslength SS))       (setq ENT (entget (ssname SS (setq N (1- N)))))       (entmod (subst (cons 50 AN) (assoc 50 ENT) ENT))     )   )   (princ) )

BDYCAD

建议楼主大师自己改出自己想样的效果的代码出来 ,楼主也应该这样做:) 不要一味想着让大家来写出来啊.我们所能做的也就是做出来些和你想要相近效果的程序给你参考:)就象老师教学生,但老师不能代学习考试啊:)你自己写的话相信这里有这么多参考的程序,也不算难了,加油啊!