45度倍数画线，只需要45 90 135 180 225 270 360 8个方向的强烈约束，类似开启正交
45度倍数画线，只需要45 90 135 180 225 270 315 3608个方向的强烈约束，类似开启正交极轴，但是正交极轴只有0 90 180 270 水平垂直四个方向，怎么实现同时8个方向的的约束？本帖最后由 sz721 于 2018-10-1 14:30 编辑
(defun FixAngLine (ang / gr lst pt)
(setq lst
(entget
(entmakex
(list
'(0 . "LINE")
(cons 8 (getvar "CLAYER"))
(cons 10
(setq pt (getpoint "\n 指定第一点"))
)
(cons 11 pt)
)
)
)
)
(princ "\n 指定第二点")
(while (and (setq gr (grread 5)) (= (car gr) 5))
(entmod
(subst (cons 11 (polar pt (/ pi ang) (distance pt (cadr gr))))
(assoc 11 lst)
lst
)
)
(entupd (cdr (assoc -1 lst)))
)
(princ)
)
(defun c:30 () (FixAngLine 6));30度
(defun c:45 () (FixAngLine 4));45度
(defun c:60 () (FixAngLine 3));60度
(defun c:120 () (FixAngLine 1.5));120度
(defun c:150 () (FixAngLine 1.2));150度 本帖最后由 lisperado 于 2019-12-18 19:57 编辑
这是最近其他论坛类似"强烈约束"解决方案。
cadtutor.net/forum/uploads/monthly_2018_08/L45.gif.14acbc373af7b4df80b786082dd020d7.gif
cadtutor.net/forum/topic/65857-lisp-file-for-true-lock-down-of-45-degree-increments/?do=findComment&comment=541832
由于没有权限发链接，请在前端加 www（点号）
可以应用在一些执行中的命令（command）
譬如画：单线，多段线，移动，复制等等
Command: pline
Specify start point: 0,0
Current line-width is 0.0000
Specify next point or : (dd)
Ortho angle = 315
(5.09256 -5.09256 0.0)
建议用 vlax-add-cmd 或 c:dd 就免括号 ， 执行命令中只须加瞥号 'dd
ps:国外没有支付宝，开微信，开qq等等经过两星期辛苦尝试，终于注册成新会员！！ lisperado 发表于 2018-10-1 15:44
这是最近其他论坛类似"强烈约束"解决方案。
cadtutor.net/forum/uploads/monthly_2018_08/L45.gif.14acb ...
这一个解决方案 可以 谢谢大神
就你的这个界面里面加就好了啊，点新键就可以了 liunian0524 发表于 2018-9-26 11:17
用 CAD命令或者lisp 怎么设置呀 mynameissnow 发表于 2018-9-26 12:52
用 CAD命令或者lisp 怎么设置呀
系统变量 POLARANG 好的，多谢了你的回复，不过这种约束不是很强，我只想要8个方向的，就像极轴只有水平垂直4个方向的 从来不用这玩意的路过！！！！ 搜索轴测图，有个45度轴测图
页:
[1]
2