从z轴减去得到

antoniusxylem · 发表于 2022-7-5 19:47:34

所以我想插入一个低于初始插入点的块，而不改变块。我一直在绞尽脑汁，试图让这个lisp例程正常工作。我想我差一点就发现输入错误了。有人能帮我吗？

（定义C:*789（/oldlayer pt1 pt2）
（setq pt1（getpoint“\n选择一个点：”）
（setq x（/（汽车pt1）
（setq y（/（cadr pt1）
（setq z（/（caddr pt1）-0.353））
（setq pt2（x y z））
（命令
“插入”“C:/CAD\U BLOCKS/J-Hangers/J-HANGER-050.dwg”pt2“”
""
)
（提示“\旋转点”）
（普林斯）
)
)

Lee Mac · 发表于 2022-7-5 20:11:10

欢迎来到CADTutor

下面是对代码的一些快速更正：

copy

(defun C:789 ( / pt1 pt2 x y z )
   (setq pt1 (getpoint "\nChoose a point : "))
   (setq x (car pt1))
   (setq y (cadr pt1))
   (setq z (- (caddr pt1) 0.353))
   (setq pt2 (list x y z))
   (command "_.-insert" "C:/CAD_BLOCKS/J-Hangers/J-HANGER-050.dwg" "_non" pt2 "" "" "\")
   (princ)
)

有关错误的解释，请参阅我的错误消息疑难解答。

PS：请编辑您的帖子，并用代码标签附上您的代码：

[突出显示][不突出]

copy

[/noparse][/highlight] Your code here [highlight][noparse]

[/noparse][/highlight]

antoniusxylem · 发表于 2022-7-5 20:43:42

非常感谢，我明白我现在做错了什么！

Lee Mac · 发表于 2022-7-5 20:51:51

不客气！

[编程交流] 从z轴减去得到

发表回复

精选推荐