半听可乐 发表于 2013-1-4 21:22:38

Andyhon的一个图元定位程序，希望给增加个记忆功能

指定图元的基点与直线的距离，从而移动图元……程序能不能增加记忆上次输入间距的功能？


下面是原帖连接，帮助理解程序功能
http://bbs.mjtd.com/thread-95814-1-1.html
;;;---------------------------------------------------------------------------------------------------------------------
;;;SUREMOVE 定间距移动
;;;by Andyhon明经社区
;;;---------------------------------------------------------------------------------------------------------------------
(defun C:SUREMOVE ()
   ;; 选择圆 / ...
   (setq ss (ssget))
   ;; 指定移动基点
   (setq pt (GetPoint "\n指定移动基点: "))
   ;; 选择目标直线
   (setq ee (nentsel "\n选择目标直线: ")
         pa (cadr ee)
         pb (osnap pa "near")
         pa (osnap pb "end")
   )
   ;; 输入移动基点与目标直线的距离1000 / 500 / ...
   (setq dd (getDist "\n输入移动基点与目标直线的距离: "))
   (vl-cmdf "Xline" "none" pa "none" pb "")
   (setq ee (entlast)
         px (vlax-curve-getClosestPointTo ee pt)
         p2 (polar px (angle px pt) dd)
   )
   (vl-cmdf "Move" ss "" pt "none" p2)
   (entdel ee)
   (princ)
)

Andyhon 发表于 2013-1-4 21:22:39

(setq dd (UDist 0 "" "\n输入移动基点与目标直线的距离: " (cond (*DD*)) nil))

Andyhon 发表于 2013-1-4 23:21:42

...程序能不能增加记忆上次输入间距的功能？...

上次输入间距　是指 程式重启 还是Dwg 重开过之后


半听可乐 发表于 2013-1-4 23:31:16

本帖最后由 半听可乐 于 2013-1-4 23:32 编辑

Andyhon 发表于 2013-1-4 23:21 http://bbs.mjtd.com/static/image/common/back.gif
...程序能不能增加记忆上次输入间距的功能？...

上次输入间距　是指 程式重启 还是Dwg 重开过之后 ...

哈哈Andyhon兄来了！
我希望是程式重启时默认上一次输入间距，换图时就没必要记忆上一次了

xieyanghui 发表于 2013-1-4 23:50:04

如果能像院长那样处理就更好了。

狂刀lxx 发表于 2013-1-5 02:36:43

设全局变量

Andyhon 发表于 2013-1-5 08:36:31

若此站内有着甚多的范例....


(setq dd (getDist "\n输入移动基点与目标直线的距离: "))
==>
(setq dd (UDist 6 "" "\n输入移动基点与目标直线的距离: " (cond (*DD*)) nil))
(setq *DD* dd)

UDist 函数站内搜,也可改用 uReal ....

半听可乐 发表于 2013-1-5 09:56:17

Andyhon 发表于 2013-1-5 08:36 static/image/common/back.gif
若此站内有着甚多的范例....




(defun C:112 ()
    ;; 选择圆 / ...
   (setq ss (ssget))
   ;; 指定移动基点
   (setq pt (GetPoint "\n指定移动基点: "))
   ;; 选择目标直线
   (setq ee (nentsel "\n选择目标直线: ")
         pa (cadr ee)
         pb (osnap pa "near")
         pa (osnap pb "end")
   )
   ;; 输入移动基点与目标直线的距离1000 / 500 / ...
(setq dd (ureal 6 "" "\n输入移动基点与目标直线的距离: " (cond (*DD*)) nil))
(setq *DD* dd)
   (vl-cmdf "Xline" "none" pa "none" pb "")
   (setq ee (entlast)
         px (vlax-curve-getClosestPointTo ee pt)
         p2 (polar px (angle px pt) dd)
   )
   (vl-cmdf "Move" ss "" pt "none" p2)
   (entdel ee)
   (princ)
)

(defun udist (bit kwd msg def bpt / inp)
(if def
    (setq msg (strcat "\n" msg "<" (rtos def) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
)
(initget bit kwd)
(setq inp (if bpt (getdist msg bpt) (getdist msg)))
(if inp inp def)
)


函数加进去了，但是只能输入正数，0及负数无法输入，实际中有用到0及负数距离的情况

Andyhon 发表于 2013-1-5 10:08:12

...实际中有用到0及负数距离的情况...

Ref initget

半听可乐 发表于 2013-1-5 12:58:17

Andyhon 发表于 2013-1-5 10:08 static/image/common/back.gif
...实际中有用到0及负数距离的情况...

Ref initget

一头雾水了~~~有劳长老亲自操刀
页: [1] 2
查看完整版本: Andyhon的一个图元定位程序，希望给增加个记忆功能