请哪位高手帮帮忙lsp调用问题

lxl13596

 

---

(defun c:ha (/ startpt endpt)
(setq startpt (getpoint))
(setq endpt (getpoint))
(initdia)
(command "_plot")
(command "_qsave")
(princ "\n已经做好了标记!")
(command "_line" startpt endpt "")
)

其实就是想让第一次打印后都会在那个图纸上做有标记，

首先我先鼠标点击矩形图纸框的左上角点，然后点击右

下角点，接着进行打印设置，窗口选择，打印文件，

最后生成直线（就是左上角点与右下角点的连线）作为标记,

       请高手帮帮忙，谢谢! 如果我在此未能表述清楚，请看下方具体操作的flash！

http://cachefile26.rayfile.com/zh-cn/download/b0b3ad10b163cb81751cb2029e9362da/1.swf

lxl13596

怎么没人回复呢？

phoenixdjq

(defun c:MYY()
(alert "请在打印前保存,打印完毕后不保存退出,或者运行MYY1")
(setq p1 (getpoint "\n 请选择第一个点:"))
(setq p2 (getpoint "\n 请选择第二个点:"))
(command "color" 240)
(command "-layer" "n" "ddjjqq" "s" "ddjjqq" "")
(command "RECTANG" p1 p2)
(setq tab (getvar "ctab"))

(if (= tab "model")

(command "-plot" "y" "" "\\\\Huxt\\Hp LaserJet 5100 PCL 6" "A4" "M" "L" "N" "W" P1 P2 "F" "" "Y" "" "N" "N" "w" "N" "N" "Y")

(command "-plot" "y" "" "\\\\Huxt\\Hp LaserJet 5100 PCL 6" "A4" "M" "L" "N" "W" P1 P2 "F" "" "Y" "" "N" "N" "N" "N" "N" "N"  "Y")

) ;end if

(princ)

)

(defun c:myy1()
(setq biao (ssget "x" '( (62 . 240) (8 . "ddjjqq") )))
(command "erase" biao "")
)

以前做的，你参考一下吧

AMTONNY

;;;;直接打印      
(defun c:MN ()
       (setvar "osmode" 32)                                                                
         (setq P1 (getpoint "\n请指定图纸第一个角点: "))                                    
         (setq P2 (getcorner p1 "\n请指定图纸对角点: "))
         (setvar "osmode" 0)               
             (setq DI1 (distance p1 p2)) ;;取得两点距离                                   
             (setq DI2 (distance p2 p1));;取得两点距离                                     
             (setq AN1 (angle p1 p2)) ;取得两点角度值                                      
             (setq AN2 (angle p2 p1)) ;取得两点角度值                                      
             (setq PP (polar p2 an2 di2))                                      
             (setq MP (polar p1 an1 di1))                                      
         (command "_plot" "y" "model" "RICOH Aficio MP 1610L" "" "m" "" "" "w" pp mp "Fit" "居中打印" "y" "monochrome.ctb" "Y" "" "n" "n"  "y")
         

 

(command "_line" p1 p2 "")                                                  
      (setvar "osmode" 183)                                         
     )

请把此打印机名改成你自已使用的打印机名“RICOH Aficio MP 1610L”

lxl13596

多多感谢大家的支持！谢谢

zctao1966

谢谢分享！！