自身缩放，直线转为多断线，外加俩个代码如何整合

fkyourmather

如果有比较好的思路分享下

或者直接源码

对了对于源码整合 有什么比较好的东东 可以分享一下

XDSoft

POLYLINE缩放？




给你写个XDRX_API的。

[pcode=lisp,true]
(defun c:ttt( / box pj m1 scl ss tf)
   (if (and (setq ss ($xdlsp_ssget "拾取对象<退出>:" nil))
            (setq scl (getreal "\n比例<退出>:"))
       )
      (progn
         (xdrx_begin)
         (if (not (setq tf (getint "\n[0-中心/1-左下/2-右下/3-右上/4-左上]<1>:")))
           (setq tf 1)
         )
         (setq box ($xdlsp_entity_box ss))
         (setq pj (mapcar '+ (car box) (xdrx_vector_Divide (mapcar '- (caddr box)(car box)) 2.0)))
         (cond
            ((= tf 0)
            )
            ((= tf 1)
               (setq pj (car box))
            )
            ((= tf 2)
               (setq pj (cadr box))
            )
            ((= tf 3)
               (setq pj (caddr box))
            )
            ((= tf 4)
               (setq pj (last box))
            )
         )
         (setq m1 (xdrx_matrix_setScale $xdtb_matrix_mat0 scl pj))
         (xdrx_entity_transform ss m1)
         (xdrx_end)
      )
   )
   (princ)
)

[/pcode]

fkyourmather

XDSoft 发表于 2013-4-30 03:41

                               
登录/注册后可看大图

POLYLINE缩放？

这个语言没有看过的..

137407536

XDSoft 发表于 2013-4-30 03:41
POLYLINE缩放？

命令: TTT
Application Error: 2 :- no function definition: $XDLSP_SSGETADS 请求错误

出错了