[求助]：有没有双向偏移的lisp程序啊?

zhaozwf

Error: Automation 错误,在2008上怎么会有这样的错误。

abcabcxyz

vlx的一些语句如何理解呀，我不能入门呀

duanzb

学习中，谢谢拉。

倒数第一名

很棒的东西，呵呵，

shep2008

五楼正确的代码应该是
(defun c:x2 (/ GETDS OBJ RED-DIST)
(vl-load-com)(initget 2)
(setq red-dist (vl-registry-READ "HKEY_CURRENT_USER\\Software\\Autodesk\\BDYCAD" "OFDIST"))
(IF red-dist
(setq getds (getdist (STRCAT "\n請入偏移距离<"red-dist">:")))
(setq getds (getdist "\n請入偏移距离<可直接量取>:")))
(IF (= getds NIL)(SETQ getds (ATOF red-dist)))
(vl-registry-WRITE "HKEY_CURRENT_USER\\Software\\Autodesk\\BDYCAD" "OFDIST" (RTOS getds))
(if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
(vlax-for obj (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
(vla-offset obj getds)(vla-offset obj (* getds -1))
)
(vlax-release-object obj)
)
)

呵呵，不懂lsp，但是知道注册表导入的时候路径上下级之间是要两个"\"的

chuaren

顶下先

kmliro_2017

不错，谢谢分享！！！！

kmliro_2017

不错，谢谢分享！！！！

/db_自贡黄明儒_

核心就是(vla-offset obj dis) (vla-offset obj (* dis -1))
dis一正一负，就是双向了。