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

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

Andyhon

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

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

半听可乐

Andyhon 发表于 2013-1-4 23:21
...程序能不能增加记忆上次输入间距的功能？...

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

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

xieyanghui

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

狂刀lxx

设全局变量

Andyhon

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


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

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

半听可乐

Andyhon 发表于 2013-1-5 08:36
若此站内有着甚多的范例....

(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

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

Ref initget

半听可乐

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

Ref initget

一头雾水了~~~有劳长老亲自操刀