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

请哪位高手帮帮忙lsp调用问题
www.dimcax.com
请哪位高手帮帮忙lsp调用问题
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:

(defun c:ha (/ startpt endpt)
(setq startpt (getpoint))
(setq endpt (getpoint))
(initdia)
(command "_plot")
(command "_qsave")
(princ "\n已经做好了标记!")
(command "_line" startpt endpt "")
)
其实就是想让第一次打印后都会在那个图纸上做有标记，
首先我先鼠标点击矩形图纸框的左上角点，然后点击右
下角点，接着进行打印设置，窗口选择，打印文件，
最后生成直线（就是左上角点与右下角点的连线）作为标记,
请高手帮帮忙，谢谢! 如果我在此未能表述清楚，请看下方具体操作的flash！
[flash]
怎么没人回复呢？
d
(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 "")
)
以前做的，你参考一下吧
工资真的要涨了，心里更加爱党了，能给孩子奖赏了，见到老婆敢嚷了，敢尝海鲜鹅掌了，闲时能逛商场了，遇见美女心痒了，结果物价又涨了！
d
;;;;直接打印
(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”
d
多多感谢大家的支持！谢谢
d
谢谢分享！！