画弹簧孔程序

726613

(defun c:Thk ()                     
        (setq pb (getpoint "\n-->请选取插入点:"))            
        (princ  "\n-->请输入弹簧孔直径<") (princ tqd) (princ ">:")
        (setq x (getreal))
     (cond
           ((= nil (numberp x)) (setq tqd tqd))
           ((= T (numberp x)) (setq tqd x))
     )
        (setq r  (/ tqd 2.0)
              p0 (polar pb (* pi 0.25) r)
              p1 (polar pb (* pi 0.75) r)
              p2 (polar pb (* pi 1.25) r)
              p3 (polar pb (* pi 1.75) r)
        )
            (command "circle" pb r)
            (command "line" p0  p2 "") (setq l1(ssget "l"))


            (command "line" p1  p3 "") (setq l2(ssget "l"))

            (command "change" l1 l2 "" "p" "c" "" "lt" "CENTERX2" "la" cl_lay "")  
(princ)
)         


执行以上程序如图所示



               图一



                    图二

图一是在文档1执行程序的结果，图二是在文档2执行程序的结果。程序不稳定



             图三

请问大家程序如何修改才能实现图三的结果，同时要可循环单击鼠标左键就可以，不要再按空格键。

鱼与熊掌

转一下.    ro

cable2004

(defun c:Tt ()                     
        (setq pb (getpoint "\n-->请选取插入点:"))            
        (princ  "\n-->请输入弹簧孔直径<") (princ tqd) (princ ">:")
        (setq x (getreal))
     (cond
           ((= nil (numberp x)) (setq tqd tqd))
           ((= T (numberp x)) (setq tqd x))
     )
        (setq r  (/ tqd 2.0)
              p0 (polar pb (* pi 0.25) r)
              p1 (polar pb (* pi 0.75) r)
              p2 (polar pb (* pi 1.25) r)
              p3 (polar pb (* pi 1.75) r)
        )
  (entmakex (list (cons 0 "CIRCLE")(cons 10 pb)(cons 40 r)(cons 62 4)))
  (entmakex (list (cons 0 "LINE")(cons 10 p0)(cons 11 p2)(cons 62 1)(cons 48 (/ tqd 500))(cons 6  "CENTERX2")))
  (entmakex (list (cons 0 "LINE")(cons 10 p1)(cons 11 p3)(cons 62 1)(cons 48 (/ tqd 500))(cons 6  "CENTERX2")))         
  (princ)
)