45度倍数画线，只需要45 90 135 180 225 270 360 8个方向的强烈约束，类似开启正交

mynameissnow

45度倍数画线，只需要45 90 135 180 225 270 315 360  8个方向的强烈约束，类似开启正交极轴，但是正交极轴只有0 90 180 270 水平垂直四个方向，怎么实现同时8个方向的的约束？

sz721

(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

这是最近其他论坛类似"强烈约束"解决方案。

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 [Arc/Halfwidth/Length/Undo/Width]: (dd)
Ortho angle = 315
(5.09256 -5.09256 0.0)

建议用 vlax-add-cmd 或 c:dd 就免括号 ， 执行命令中只须加瞥号 'dd

ps:国外没有支付宝，开微信，开qq等等经过两星期辛苦尝试，终于注册成新会员！！

mynameissnow

lisperado 发表于 2018-10-1 15:44
这是最近其他论坛类似"强烈约束"解决方案。

cadtutor.net/forum/uploads/monthly_2018_08/L45.gif.14acb ...

这一个解决方案 可以 谢谢大神

liunian0524

yxl88168

就你的这个界面里面加就好了啊，点新键就可以了

mynameissnow

liunian0524 发表于 2018-9-26 11:17

用 CAD命令或者lisp 怎么设置呀

liunian0524

mynameissnow 发表于 2018-9-26 12:52
用 CAD命令或者lisp 怎么设置呀

系统变量 POLARANG

mynameissnow

好的，多谢了你的回复，不过这种约束不是很强，我只想要8个方向的，就像极轴只有水平垂直4个方向的

ysq101

从来不用这玩意的路过！！！！

langjs

搜索轴测图，有个45度轴测图