注册 发表于 2022-11-3 19:38:46

（已解决）请教，为何下面这个程序画窗线会乱啊？

本帖最后由 注册 于 2022-11-4 07:05 编辑

源码如下：
(defun C:wrf_lmw( / lay os rows colu row1 row2 colu1
                     pt pt0 pt1 pt2 pt3 pt4 ww)
(setvar "CMDECHO" 0)
(setq lay (getvar "clayer"))
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 255)
(command "color" "bylayer")
(command "layer" "m" "lmw" "c" "146" "lmw" "")
(setq rows (getint "\n窗上下分格数(1不分格)/<或2>: "));
(if (= rows nil) (setq rows 2))
(setq colu (getint "\n窗扇数<3>: "))
(if (= colu nil) (setq colu 3))
(setq row1 (getdist "\n窗高<1500>: "))
(if (= row1 nil) (setq row1 1500))
(if (> rows 1) (progn
(setq row2 (getdist "\n窗上格高度<450>: "))
(if (= row2 nil) (setq row2 450))
)
(setq row2 1)
)
(setq colu1 (getdist "\n窗宽<1500>: "))
(if (= colu1 nil) (setq colu1 1500))
(setq pt (getpoint "\n窗左下角点: "))
(setq pt1 pt)
(setq ww (/ colu1 colu))               ;数据输入
(setq pt2 (polar pt1 0 colu1))
(setq pt3 (polar pt2 (* pi 0.5) row1))
(setq pt4 (polar pt1 (* pi 0.5) row1))
(command "line" pt1 pt2 pt3 pt4 "c")   ;外框线
(setq ptt pt4 pt2 pt4)
(repeat (1- rows)
(setq pt2 (polar pt2 (/ pi -2) row2))
(setq pt3 (polar pt2 0 colu1))
(command "line" pt2 pt3 "")                      ;横线
)
(setq pt2 pt1)
(if (> colu 1)
(repeat (1- colu)
   (setq pt2 (polar pt2 0 ww))
   (setq pt3 (polar pt2 (* pi 0.5) row1))
   (command "line" pt2 pt3 "")
)
)                                          ;竖线
(setq pt0 pt)
(repeat colu
(setq pt1 (mapcar '+ pt0 '(45 45 0)))
(setq pt2 (polar pt1 0 (- ww 90)))
(setq pt3 (polar pt1 (* pi 0.5) (- row1 (* row2 (1- rows)) 90)))
(setq pt4 (polar pt2 (* pi 0.5) (- row1 (* row2 (1- rows)) 90)))
(command "line" pt1 pt2 pt4 pt3 "c")
(setq pt0 (polar pt0 0 ww))                         ;下框内框线
)
(repeat (1- rows)
(setq ptt (polar ptt (/ pi -2) row2))
(setq pt0 ptt)
(repeat colu
   (setq pt1 (mapcar '+ pt0 '(45 45 0)))
   (setq pt2 (polar pt1 0 (- ww 90)))
   (setq pt3 (polar pt1 (* pi 0.5) (- row2 90)))
   (setq pt4 (polar pt2 (* pi 0.5) (- row2 90)))
   (command "line" pt1 pt2 pt4 pt3 "C")
   (setq pt0 (polar pt0 0 ww))                         ;上框内框线
)
)
(setvar "OSMODE" os)
(command "layer" "s" lay "")
(redraw)
(princ)
)


操作过程如下：
窗上下分格数(1不分格)/<或2>:
窗扇数<3>:
窗高<1500>:
窗上格高度<450>:
窗宽<1500>:
窗左下角点:

操作结果如下：

自贡黄明儒 发表于 2022-11-4 11:41:34

建议使用如下程序，不要使用osmode =0
(defun HH:ayOSMode (isOpenSnap)
(if isOpenSnap
    (setvar "osmode" (rem (getvar "osmode") 16384))          ;打开捕捉.
    (setvar "osmode" (+ (rem (getvar "osmode") 16384) 16384)) ;关闭捕捉.
)
)

chenxiy825 发表于 2022-11-3 20:57:56

“osmode”设置为0试试

注册 发表于 2022-11-3 21:27:49

chenxiy825 发表于 2022-11-3 20:57
“osmode”设置为0试试

嗯，感觉也是捕捉出乱了，谢谢指点

革天明 发表于 2022-11-4 11:31:22

用entmake就可以不受osmode的影响了
页: [1]
查看完整版本: （已解决）请教，为何下面这个程序画窗线会乱啊？