clint0577 发表于 2022-7-6 07:20:16

重复dimaligned

我必须有2个lisp例程,我需要循环,但我需要一些帮助。这只是为了让用户不必按enter键返回命令。
 
; TIES TO BOUNDARY
(DEFUN C:DAT ()
(command ".osnap" "end,per")
(COMMAND "LAYER" "S" "BUILDING_LABELS" "")
(COMMAND "DIM" "RES" "HOUSE" "EXIT")
(COMMAND "DIMALIGNED")
(command ".osnap" "NOD,end,INT,CEN,mid")
)

; BUILDING DIMS
(DEFUN C:DAH ()
(command ".osnap" "mid")
(COMMAND "LAYER" "S" "BUILDING_LABELS" "")
(COMMAND "DIM" "RES" "WALLS" "EXIT")
(command ".osnap" "NOD,end,INT,CEN,mid")
(COMMAND "DIMALIGNED" "")
)

Dadgad 发表于 2022-7-6 07:55:25

DIM的使用会继续有帮助吗?

clint0577 发表于 2022-7-6 08:36:07

好吧,现在我只想回去工作,试试看。英雄联盟
页: [1]
查看完整版本: 重复dimaligned