Question

求一CAD二次开发lisp，能实现封闭曲线（矩形和圆），自动往内偏移，不甚感谢!

小弟现有一能将封闭曲线（矩形和圆）自动往外偏移的lisp，能将指定封闭曲线向外偏移2。现求一类似lisp能实现封闭曲线向内也偏移1.5，哪位大侠帮帮忙，小弟不甚感谢！
(defun c:NOP(/ oce vs1 ent_list id list_len ent msg od)
(setq oce (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq vs1 (getvar "vsmax"))
;(setq msg (strcat "Give the offset dist<" (rtos (getvar "offsetdist")) ">:" ))
;(setq od (getdist msg ))
;(if (= nil od)
;(setq od (getvar "offsetdist"))
;(setvar "offsetdist" od)
;)
(setq ent_list (ssget))
(setq list_len (sslength ent_list))
(setq id 0)
(repeat list_len
(setq ent (ssname ent_list id))
(command ".offset" "2" ent vs1 "")
(setq id (1+ id))
)
(prinC (strcat (rtos list_len 2 0) " Entites has done."))
(PRINC)
)

Answer 1

这样思考：
一个封闭的区域，它的边界总是可以找到 左侧 或 右侧，
你在OFFSET时 不用SSGET，用entsel 会得到一个ENT 同时 也可以得到一个你指向的点
你利用这个点，找其右侧微小距离处的一个点，作为OFFSET的偏移点，那么得到的结果是：
1 如果你在Entsel时 点选的是封闭区的左侧，那么这个偏移是向内偏移
2 相反 如果你在Entsel时 点选的是封闭区的右侧，那么这个偏移是向外偏移
以上说法你明白了吗？
希望你帮得上你，祝你编程愉快

Answer 2

有两种思路 一种是在闭合的多段线中找一个点 或者干脆你找质心，一种是干脆双向偏移然后你比较偏移后两条直线的长短，如果短的就是你需要的，然后删除长的