悬赏缩放LISP源码
本帖最后由 随梦而飞 于 2012-8-4 08:30 编辑悬赏缩放LISP源码
file:///D:/Program%20Files/QQ/Users/1980006156/Image/$$S%7D~1NH~C%25CYAIL%60@D(@TS.gif
1、我的邮箱1980006156qq.com
2、由于本人刚学LISP,请高手注明每行LISP语言的简要的说明性文字，方便我认真学一下，如有这个的教学更佳。
3、请提供联系方式在我的邮箱，以便悬赏到位，千万别不好意思，否则我会不安的。
4、缩放后原大样图的标注同演示，但标注数字不变。
x_s_s_1 发表于 2012-8-3 18:41
严正声明！！子函数均来自明经，非本人原创，尺寸的比例由于不知道个人习惯没有处理
你好在吗能否 吧比例因子记住 ，输入一次就可以 多谢分享，体验一下 建议到明经交易版块去………………… 本帖最后由 x_s_s_1 于 2012-8-3 21:31 编辑
严正声明！！子函数均来自明经，非本人原创，尺寸的比例由于不知道个人习惯没有处理 (vl-load-com)
;;;lst_ssn函数(lst_ssn ss)
;;;ss参数：选折集
;;;返回图元名表
(defun lst_ssn (ss / n lst)
(repeat (setq N (sslength ss))
(setq LST (cons (ssname SS (setq N (1- N))) LST))
) ;_ 结束repeat
) ;_ 结束defun
;;;计算曲线交点
(defun Curveinters (en1 en2 / pl pts)
(setq pl(vlax-invoke (vlax-ename->vla-object en2) 'IntersectWith (vlax-ename->vla-object en1) acExtendNone))
(while pl
(setq pts (append pts (list (list (car pl) (cadr pl) (caddr pl))))
pl (cdr (cdr (cdr pl)))
)
)
pts
)
(defun zsf (/ ss_all ss_dot ss_sc ss_pts pt ssets scal x objss )
(setvar "cmdecho" 0)
(prompt "\n请选择需要进行缩放的物体:")
(setq ss_all (ssget));此处可根据个人习惯增加图层(ssget'((8 . "colu,dim,sbar,dote,axis")))
(setq ss_dot (ssget "p" '((0 . "*line") (8 . "dote,axis"))));此处图层根据个人习惯改
(command "._Select" ss_all "remove" ss_dot "")
(setq ss_sc (ssget "p"))
(setq ss_pts (lst_ssn ss_dot))
(setq pt (car(Curveinters (car ss_pts) (cadr ss_pts))))
(setq ssets (lst_ssn ss_sc))
(setq scal (getreal "\n比例因子:"))
(foreach x ssets
(setq objss (vlax-ename->vla-object x))
(vla-scaleentity objss (vlax-3D-point pt) scal)
)
)
(defun c:scc ()
(zsf)
(princ)
)
本帖最后由 xiaodao520 于 2012-8-3 21:11 编辑
建议楼主上测试图。赏在哪啊，楼主。还有点就是别人的代码，楼主千万别吹牛说是自己编的哦。我们都在看着。 这个用不了。要让轴线不动。封闭多边形各边向轴线方向缩小 1111111111111111111111111111111111111111111111111111111111111111 未考虑尺寸的缩小：
xyp1964 发表于 2012-8-3 21:15 static/image/common/back.gif
未考虑尺寸的缩小：
不是理想的效果，继续努力，校长 本帖最后由 x_s_s_1 于 2012-8-3 21:37 编辑
xiaodao520 发表于 2012-8-3 20:05 http://bbs.mjtd.com/static/image/common/back.gif
建议楼主上测试图。赏在哪啊，楼主。还有点就是别人的代码，楼主千万别吹牛说是自己编的哦。我们都在看着。
看来还要加一句啊，这个东西本来就是copy别人改的，本人从来不改别人函数名及变量名！！我也没说自己编的啊
x_s_s_1 发表于 2012-8-3 21:30 static/image/common/back.gif
看来还要加一句啊，这个东西本来就是copy别人改的，本人从来不改别人函数名及变量名！！我也没说自己编 ...
我不是说你，因为你不是楼主，我说的是随梦而飞