求助，这个entmake里面的参数为什么不能用自己定义的？

yyz639 · 发表于 2021-4-27 14:13:56

求助，这个entmake里面的参数为什么不能用自己定义的？这种应该怎么办？

vitalgg · 发表于 2021-4-28 16:16:07

先搞明白 list quote  单引号 ' 的用法。

'((0 . "circle")
         (62 . 7)
         (10 position)  ;; 这里的position 不是变量，因为在单引号 quote 范围内，下一行同理。
            (40 . us_Radius))
      )
所以要写成下面的形式
(list '(0 . "circle")
   '(62 . 7)
   (cons 10 position)
      (cons 40 us_Radius))
      )

烟盒迷唇 · 发表于 2021-4-27 21:28:14

帮你改了，你又变回去，没办法不出错了

烟盒迷唇 · 发表于 2021-4-27 15:09:25

这种就应该改代码
(defun c:HDM(/ position us_depth us_radius us_width)
(setq us_Radius (getint "请输入管径:"))
(setq us_Depth (getint "请输入管顶覆土深度:"))
(setq us_Width (getint "请输入两侧开挖工作面宽度:"))
(setq position (getpoint ":"))
(entmake
(list
'(0 . "circle")
'(62 . 7)
(cons 10 position)
(cons 40 us_Radius)
)
)
)

yyz639 · 发表于 2021-4-27 14:14:24

(defun c:HDM()
(setq us_Radius (getint "请输入管径:"))
(setq us_Depth (getint "请输入管顶覆土深度:"))
(setq us_Width (getint "请输入两侧开挖工作面宽度:"))
(setq position (getpoint ":"))
(entmake '((0 . "circle")
(62 . 7)
(10 position)
(40 . us_Radius))
)
)

yyz639 · 发表于 2021-4-27 17:43:48

本帖最后由 yyz639 于 2021-4-27 17:48 编辑

谢谢，楼上兄弟的帮助~本人小白，刚才测试了一下，返回“:100,100,100
; 错误: DXF 组不正确: (10 POSITION)”不知道怎么解决，还望大佬再指点一二

yyz639 · 发表于 2021-4-27 17:44:12

谢谢帮助~

yyz639 · 发表于 2021-4-29 10:52:53

vitalgg 发表于 2021-4-28 16:16
先搞明白 list quote 单引号 ' 的用法。

'((0 . "circle")

谢谢提醒，有相关的资料分享一下吗，学习学习~

vitalgg · 发表于 2021-4-29 11:10:20

yyz639 发表于 2021-4-29 10:52
谢谢提醒，有相关的资料分享一下吗，学习学习~

QQ群： 701625004

账号		自动登录	找回密码
密码			注册

[提问] 求助，这个entmake里面的参数为什么不能用自己定义的？

评分

评分

本帖子中包含更多资源

评分