社区 › Auto Lisp › 偏移到图层

motee-z 发表于 2022-7-6 00:33:55

你好
可以拾取对象以获取其层并将其设置为偏移层

Lee Mac 发表于 2022-7-6 00:38:46

 
不客气！
 
 
假设我理解你的意图，下面是一个非常简单的程序：
(defun c:myoffset ( / ent lay old )
   (if (setq ent (car (entsel "\nPick object for offset layer: ")))
       (progn
         (setq lay (cdr (assoc 8 (entget ent)))
               old (getvar 'clayer)
         )
         (vl-cmdf "_.-layer" "_T" lay "_S" lay "" "_.offset" "_L" "_C")
         (while (= 1 (logand 1 (getvar 'cmdactive))) (vl-cmdf "\\"))
         (setvar 'clayer old)
       )
   )
   (princ)
)

motee-z 发表于 2022-7-6 00:44:32

谢谢
lee的回复，但我的意思是你之前写过的同一个lisp，但不是在代码中键入layer来为我拾取已知对象，并获取其层，使偏移对象移动到我拾取的同一层对象
命令序列
拾取偏移对象
-输入偏移值
-拾取对象以获取其图层
在此处循环
-偏移到拾取的层

Lee Mac 发表于 2022-7-6 00:46:53

 
只需使用OFFSET命令的OFFSET>LAYER>SOURCE选项？

motee-z 发表于 2022-7-6 00:50:28

谢谢李，没关系

dblclkmatt 发表于 2022-7-6 00:56:12

 
我有一个调整，如果可能的话，你能改变它，以提示偏移第一，然后对象？
并在抵消第一个后保持选择其他对象的能力？类似于offset命令的自然功能。

查看完整版本: 偏移到图层