请问各位大侠：在lsp中调用画线命令后，随意指定一点后，第二个点以第一个点为基准点的相对坐标和相对极坐标如何来获取和表示呀。问题2：谁能写一个按栏选方式修剪对象的简单的lsp呀。谢谢了
请问各位大侠：
在lsp中调用画线命令后，随意指定一点后，第二个点以第一个点为基准点的相对坐标和相对极坐标如何来获取和表示呀。问题2：谁能写一个按栏选方式修剪对象的简单的lsp呀。谢谢了
2楼
相对坐标输入:
命令: l LINE 指定第一点:
指定下一点或 [放弃(U)]: @1000,1000
极坐标输入：
命令: l LINE 指定第一点:
指定下一点或 [放弃(U)]: @1000<30
第二个问题：
使用trim命令的f参数项即可：
命令: t TRIM
当前设置:投影=UCS，边=延伸
选择剪切边...
选择对象: 找到 1 个
选择对象:
选择要修剪的对象，或按住 Shift 键选择要延伸的对象，或 [投影(P)/边(E)/放弃(U)]: f
第一栏选点:
指定直线的端点或 [放弃(U)]:
指定直线的端点或 [放弃(U)]: *取消*
回复
3楼
;;;1.已知第一点pt1:
(setq pt1 (getpoint "\n指定第一点:"))
;;;求出第二点pt2:
;;;相对直角坐标:
(setq pt1_x (car pt1))
(setq pt1_y (cadr pt1))
(setq pt2 (cons (+ pt1_x 1000.) (+ pt1_y 1000.)))
;;;相对极坐标:
(setq pt2 (polar pt1 (/ pi 6) 1000.))
;;;2.栏选方式修剪对象:
(defun c:tt ()
(setq ss (ssget))
(command "trim" ss "" "f")
)
回复
4楼
谢谢3楼的
回复
