cad lisp命令批量偏移

答案:2 悬赏:20 手机版

解决时间 2021-04-05 03:11

提问者网友：山高云阔
2021-04-04 05:43

(DEFUN C:111 ()
(SETVAR "CMDECHO" 0)
(PRINC "图层属性至8")(PRINC)
(SETQ SS(SSGET))
(COMMAND "OFFSET" (setq d (getreal "\n输入偏移距离:")) ss"m" ))
哪位高手帮我改下
1。能重复上次操作
2.能看到上次偏移数值

最佳答案

五星知识达人网友：一叶十三刺
2021-04-04 06:44

offset本身就有这个功能！

全部回答

1楼网友：刀戟声无边
2021-04-04 08:07

能说明输入什么样的参数输出什么样的图形？变色希望是什么效果的？ (setq cs (getvar "osmode")) (setvar "osmode" 0 ) (setq n1 (getint "\n个数:")) (setq d1 (getint "\n间距:")) (setq ent1 (car (entsel "\n选取图元:"))) (setq p1 (getpoint "\n指定要偏移的那一侧上的点:")) (setq n 1) (repeat n1 (command "offset" d1 ent1 p1 "e" ) (setq ent1 (entget (entlast))) (setq ent1 (subst (cons 62 n) (assoc 62 ent1) ent1 )) (entmod ent1) (setq n (1+ n)) (setq ent1 (entlast)) ) 上面是基本意思，前提是原图形的颜色不是随层的，点选那一侧上的点时尽量远，因为这个点没有随着增加的线自动变化。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息

cad lisp命令 批量偏移

cad lisp命令批量偏移