插入图框程序

726613

   图一



  图二
     
(defun c:t8 ()
   (setvar "cmdecho" 0)   
   (setq pt1 (getpoint "-->请选取图框左下角点:\n"))
   (setq pt2 (getcorner pt1 "-->请选取图框右上角点:\n"))
   (setq disx (abs (- (car pt1) (car pt2))))
   (setq disy (abs (- (cadr pt1) (cadr pt2))))
   (setq acx  (/ disx 385.00))
   (setq acy  (/ disy 232.00))
   (if (> acy acx)
       (setq acx acy))
    (setq acx (*  (fix (+ (* acx 10) 0.9999)) 0.1))
   (setq pt0 (list (/ (+ (car pt1 ) (car pt2) (* (- 0 8) acx)) 2.00)
                   (/ (+ (cadr pt1) (cadr pt2) (* (- 0 23.6) acx)) 2.00)))
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (command "insert"  "t8.dwg" pt0 "x" acx "" "" "" )
   (setvar "osmode" os)
   (princ)
)

     附件：文件
               图框样本


          在输入T8  选取文件左下角，再选取文件右上角结果显示如图一；
现想法是如何使图框样本随光标移动，如何才能达到图二的效果，请高手指点，谢谢。
  

yaokui25

726613 发表于 2013-5-6 20:46
执行之后，还是跟图一差不多

图框和代码修正了你再试试

yaokui25

试试下面的应该能行
(defun c:t8 ()
   (setvar "cmdecho" 0)   
setq pt1 (getpoint "-->请选取图框左下角点:\n"))
   (setq pt2 (getcorner pt1 "-->请选取图框右上角点:\n"))
   (setq disx (abs (- (car pt1) (car pt2))))
   (setq disy (abs (- (cadr pt1) (cadr pt2))))
   (setq acx  (/ disx 385.00))
   (setq acy  (/ disy 232.00))
   (if (> acy acx)
       (setq acx acy)
   )
    (setq acx (*  (fix (+ (* acx 10) 0.9999)) 0.1))
   (setq acc (rtos acx 2 1))
   (setq pt0 (list (/ (+ (car pt1 ) (car pt2) (* (- 0 0) acx)) 2.00)
                   (/ (+ (cadr pt1) (cadr pt2) (* (- 0 0) acx)) 2.00)))

   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (command "insert"  "t8.dwg" pt0 "x" acx "" acc "")
   (setvar "osmode" os)
   (princ)
)

Gu_xl

把pt0改成 pause试试！

长风（尚品）

楼主。请问你这个如何使用？

726613

yaokui25 发表于 2013-5-5 22:25
试试下面的应该能行
(defun c:t8 ()
   (setvar "cmdecho" 0)   

谢谢您指点，不过还是不能实现。谢谢

yaokui25

726613 发表于 2013-5-6 20:10
谢谢您指点，不过还是不能实现。谢谢

是否接近你想要的，执行之后结果如何？

726613

yaokui25 发表于 2013-5-6 20:37
是否接近你想要的，执行之后结果如何？

执行之后，还是跟图一差不多

726613

yaokui25 发表于 2013-5-6 21:21
图框和代码修正了你再试试

我是点左下角（即原点），再点右上角，我需要的效果是如图二。不过还是要谢谢您

yaokui25

726613 发表于 2013-5-6 21:28
我是点左下角（即原点），再点右上角，我需要的效果是如图二。不过还是要谢谢您

现在的图框和代码能满足你的要求啊
图二的效果达到了