[LISP函数]：求 双向偏移 的LISP

Jason1010

最近下载了新的 “贱人工具箱 2007 第三版本” ，对于里面的命令 有大部分都可以通过CAD或天正软件搞定。  其中有  双向偏移、SPL转PL， 比较有欣赏。 “贱人工具箱 2007 第三版本”有一个很失败的就是，居然要用掉 Y  命令启动。对于这点，希望能用那些比较偏的命令启动为好， 比如 数字1 左边，TAB键 上面的“ ` ” 比较好。各位认同否。 我求 双向偏移 LISP 原编码

tangyu

很多年前在一本书上看的，自己改造了一下用于画墙线，好几年不用了，你试试吧。
(setvar "cmdecho" 0)
(defun c:oo(/ os dis e pt1 pt2 a)
   (setq os(getvar "osmode"))
   (if(= w nil)(setq w 200))
   (princ "\n请输入墙宽:<")
   (princ w)
   (princ ">")
   (setq dis(getdist))
   (if (= dis nil)(setq dis w))
   (setq w dis)
   (setq dis(/ dis 2))
   (setq e 1)
   (while e
     (setvar"osmode" 512)
     (setq pt1 (getpoint "\n请点取变双墙的轴线:"))
     (setq pt2 (polar pt1 3.12414 1))
     (setq pt3 (polar pt1 3.12414 -1))
     (setvar"osmode"0)
     (command "offset" dis pt1 pt2 "")
     (command "chprop" "l" "" "la" "wall" "")
     (command "erase" "l" "")
     (command "offset" dis pt1 pt3 "")
     (command "oops")
     (command "chprop" "l" "" "la" "wall" "")
     (setq a (getstring "\n按回车键继续, 按 E 结束"))
     (if (=(strcase a) "E")(setq e nil))
    )
     (setvar "osmode" os)
)

fengsea

2楼要是能偏移到当前层那将会更好而不是偏移到wall！！！顶一下！！！

xotoo

谢谢，超级感谢，非常非常感谢……

fengyishan

应该还可以

iamkevinlee

(defun c:cf( )
(progn
(vl-load-com)
(setq k 0)
(setq cls (getvar "clayer"))
(setq clp (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq a (getreal "\n输入单边偏移距离:") );如直接回车取上次值
(if (null a) (setq a (getvar "offsetdist")));
(setq aa (ssget ))
(setq f (sslength aa))
(while (< k f)
(setq ent1 (ssname aa k))
(setq VL1 (vlax-ename->vla-object ent1))
(setq ptst (vlax-get VL1 'startpoint)) ;求端点
(setq pten (vlax-get VL1 'endpoint)) ;求端点
(setq ptst (list (car ptst) (nth 1 ptst)))
(command "OFFSET" a ent1 ptst "" )
(setq bb (entlast))
(command "MIRROR" bb "" ptst pten "n" )
(command"erase" ent1 "" ) ;删除原直线，如想保留删去此行
(setq k (1+ k))
)
(setvar "osmode" clp)
(setvar "cmdecho" 1 )
)
(princ)
)
(prompt "<<两侧偏移>>启动命令:cf")
(princ)

倒数第一名

6楼的不能偏移圆啊。

daidong013

贱人工具有！~~~

xotoo

双线偏移的程序，输入偏移距离的时候直接输入整个偏移距离比较好；而不是输入单边的偏移距离……

双线偏移的程序，可不可以加上“偏移到点击（选择）层”这样的功能哪？
比如我需要双向偏移的线在“0”层，我想偏移后的线在“1”层（并且图纸中已经有“1”层的图元存在），我输入完偏移数据后点击任意属于“1”层图元，偏移的线条就到“1”层；如果我点击任意“2”层的图元，偏移后的物体就到“2”层……

金鹅起飞

楼主，怎么只有一边偏移呢？哪里出了问题？

[山]暧琳琳

什么叫双向偏移？