command 倒角出现错误

rjtiantian · 发表于 2013-5-12 17:32:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[pcode=lisp,true](defun c:t4 ( / ss d i s1)
  (princ "\n请选择需要倒C角的多段线")
  (setq ss (ssget (list '(0 . "LWPOLYLINE"))))
  (if (= t4bak nil) (setq t4bak 5))
  (setq d (getreal (strcat "\n请输入C角尺寸(当前为" (rtos t4bak) ")")))
  (if (= d nil) (setq d t4bak))
  (setq t4bak d)
  (setq i -1)
  (setvar "CMDECHO" 0)
  (while
(setq s1 (ssname ss (setq i (1+ i))))
(command "chamfer" "d" d "" "" "chamfer" "p" s1)
  )
  (setvar "CMDECHO" 1)
  (princ)
）
[/pcode]

请输入C角尺寸(当前为50) 未知命令“T4”。按 F1 查看帮助。
未知命令“T4”。按 F1 查看帮助。
未知命令“T4”。按 F1 查看帮助。

怎么出现错误了呀？求指点？
是(command "chamfer" "d" d "" "" "chamfer" "p" s1)的问题吗？
该怎么修正?

rjtiantian · 发表于 2013-5-12 17:40:43

d 后面多了个 “”
感谢群友 XD-♀-冰心

冰心 · 发表于 2013-5-15 17:10:29

楼主这个不用谢的，看得出楼主的心态好，值得帮助

rjtiantian · 发表于 2013-5-15 19:51:20

冰心发表于 2013-5-15 17:10
楼主这个不用谢的，看得出楼主的心态好，值得帮助

:handshake

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

[已解决] command 倒角出现错误

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分