asos2000 发表于 2022-7-6 06:17:31

帮助创建此lisp

我想知道是否有人可以帮我编写这个lisp
 
在附件中,我想偏移柱脚线(绿色柱脚线)2次,然后在第二个柱脚线(隐藏柱脚线)中,使用称为123的块测量每个150mm,并将块插入每个顶点
 
谢谢

neophoible 发表于 2022-7-6 06:54:22

我相信有人可以帮你编码,但你能先把你已经有的东西贴出来,然后再提问吗?

asos2000 发表于 2022-7-6 07:19:07

这是我糟糕的开始
(defun c:rfts (/)

(setq intP (getpoint "/nPick internal point"))
(setq ost1 50)
(setq ost2 40)

(command "_.-boundary" "_A" "_I" "_N" "" "_O" "_P" "" "_non" intP "")
(setq obj1 (entlast))
(command "_offset" ost1 obj1 intP)
(setq obj2 (entlast))
(command "_offset" ost2 obj2 intP)
;(command "_erase" obj1)
)
页: [1]
查看完整版本: 帮助创建此lisp