maozhumao 发表于 2010-4-1 17:07

怎么画内框？

;本程序产生A1图框
(defun c:TKA1()
      (princ "请选择一个点作为图框的左下角:")

      (setq aa (getpoint) )                     

      (car aa)
      (setq bb (car aa))
      (setq cc (cadr aa))

      (setq dd (listbb cc))                     
      (setq ee (list(+ bb 841) cc))               
      (setq ff (list(+ bb 841) (+ cc 597)))   
      (setq gg (listbb (+ cc 597)))               

         (setq ddd (list (+ bb 25) (+ cc 10)))      
         (setq eee (list (+ bb 831) (+ cc 10)))   
         (setq fff (list (+ bb 831) (+ cc 587)))   
         (setq ggg (list (+ bb 25) (+ cc 587)))   


      (progn
          (command "pline"dd ee"c")                  
          (command "pline"ee ff"c")
          (command "pline"ff gg"c")
          (command "pline"gg dd"c")                        
      
           (getpointddd )
             (progn
                (command "pline"ddd eee"c")   
                (command "pline"eee fff"c")   
                (command "pline"fff ggg"c")      
                (command "pline"ggg ddd"c")   
             )                        

          )
   
)

这个程序只能画出外框，却画不出内框，应该在   (getpointddd )这一句中，不知怎么改？就是把光标定向内框的左下角

jianfeng01 发表于 2010-4-1 21:27

这是干嘛的，俺是新手，是传说中的二次开发么？
页: [1]
查看完整版本: 怎么画内框？