从z轴减去得到
所以我想插入一个低于初始插入点的块，而不改变块。我一直在绞尽脑汁，试图让这个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“”
""
)
（提示“\旋转点”）
（普林斯）
)
) 欢迎来到CADTutor
下面是对代码的一些快速更正：
(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：请编辑您的帖子，并用代码标签附上您的代码：
[突出显示][不突出]
Your code here 非常感谢，我明白我现在做错了什么！ 不客气！
页:
[1]