为什么在cad2020中以下代码运行不了？

Qwer1243

2. ;;;*****倒直角优化****
   
3. (defun c:w1 (/ txt)
   
4.   (setvar "cmdecho" 0)
   
5.   (setq txt (memory "\n输入倒角距离<" 'txt_dzj 20))
   
6.   (command-s "_.chamfer" "d" txt txt "_.chamfer" "u")
   
7.   (princ)
   
8. )

;;;*****倒直角优化****<br /> (defun c:w1 (/ txt)<br />   (setvar "cmdecho" 0)<br />   (setq txt (memory "\n输入倒角距离<" 'txt_dzj 20))<br />   (command-s "_.chamfer" "d" txt txt "_.chamfer" "u")<br />   (princ)<br /> )

2. (defun memory (str var mor /)
   
3.   (or (eval var) (set var mor))
   
4.   (setq strtmp (getreal (strcat str (rtos (eval var) 2 4) ">")))
   
5.   (if (null strtmp) (setq strtmp (eval var)))
   
6.   (set var strtmp)
   
7. )

(defun memory (str var mor /)<br />   (or (eval var) (set var mor))<br />   (setq strtmp (getreal (strcat str (rtos (eval var) 2 4) ">")))<br />   (if (null strtmp) (setq strtmp (eval var)))<br />   (set var strtmp)<br /> )

为什么  (command-s "_.chamfer" "d" txt txt "_.chamfer" "u")这句在cad2020中运行不了，在2014中运行是可以的，有没有什么解决办法

pzweng

设置系统变量用的？
有直接对应的系统变量:chamfera和chamferb

hi7720

(command-s "_.chamfer" "d" txt txt "_.chamfer" "u")
改成
(command "_.chamfer" "d" txt txt "_.chamfer" "u")

qazxswk

txt_dzj是啥玩意？

Qwer1243

hi7720 发表于 2025-1-4 13:14
(command-s "_.chamfer" "d" txt txt "_.chamfer" "u")
改成
(command "_.chamfer" "d" txt txt "_.chamf ...

cad2020 (command)用不了的

Qwer1243

qazxswk 发表于 2025-1-4 13:19
txt_dzj是啥玩意？

一个记忆变量

qazxswk

改为command在2021上可以运行

Qwer1243

pzweng 发表于 2025-1-4 13:07
设置系统变量用的？
有直接对应的系统变量:chamfera和chamferb

你这个思路可以，直接设置系统变量，我试了一下是可行的， 感谢回复

Qwer1243

qazxswk 发表于 2025-1-4 13:48
改为command在2021上可以运行

我刚才试了一下，2020好像也可以，我现在用的是笔记本
我记得我在单位的台式机2020是不行的，不知道是什么原因