Question

如何选取不带度数的直线 lisp

(defun C:tt ();;(setq E (ssget '((0 . "LINE")) ));;(command "MOVE" E "")(princ))请问是否能用ssget选取集同时筛选出xy方向不带度数的直线??如下图为使用快速选择下的效果,谢谢大家~





Answer 1

在直线组码里面，没有角度选项，只有提供计算才能够知道角度。然后angtof转换为0~360之间的角度，提取出0,90,180,270的角度，就可以得到需要的直线。