求教：封头的程序原文件

koalabear · 发表于 2004-5-23 18:33

封头的程序以前在论坛里面看到一个封头的程序，能否请主人共享一下源代码。假若不能共享，能否告知一下下面的问题：

在变程的时候如何获取里面原有的数据。例如：offset第一次运行的时候显示:指定偏移距离或通过,但是第二次运行的时候就显示你上次的数值.当然这是系统变量的原因.我想知道不是系统变量如何实现.谢谢告知.

[此贴子已经被2443725于2004-5-23 16:51:01编辑过]

swaywood · 发表于 2004-5-24 04:40

这不是什么系统变量的原因，只是有些变量在程序运行退出后，仍然存在而已，cad一旦退出就没有了

swaywood · 发表于 2004-5-24 20:13

不过，还可以用图形词典，但我觉得没必要……

koalabear · 发表于 2004-5-24 21:54

楼上各位,谢谢回答,我也知道是全局变量,但是我不知道怎么获取出来,不如第一次运行需要判断是否存在该变量,如不存在输入数值,要是存在直接赋值.

swaywood · 发表于 2004-5-25 06:25

正是楼上所说

koalabear · 发表于 2004-5-26 04:26

(if (= nil TT) (setq tt (getreal "\n高度<高度>:")) (setq s (princ (strcat "\n高度<" (rtos TT) ">:"))) )

麻烦大虾看看格式对吗？我怎么运行不了，麻烦哪位指点一下。

xiaping · 发表于 2004-5-26 04:38

(= nil TT) 应该改为 (= TT nil)，或者（if not TT。

koalabear · 发表于 2004-5-27 01:18

呵呵没注意,谢谢了.

koalabear · 发表于 2004-5-27 05:47

(defun c:jszl(/ i s a0 a1 tz en1 x sm ac) (setvar "cmdecho" 0) (setvar "blipmode" 0) (princ "\n选取数字") (setq ss (ssget)) (setq i 0) (setq S 0) (setq SM 0) (repeat (sslength ss) (setq ssn (ssname ss i)) (setq ssdata (entget ssn)) (setq sstyp (cdr (assoc 0 ssdata))) (if (= sstyp "TEXT") (progn (setq SM (1+ SM)) (setq txt (cdr (assoc 1 ssdata))) (setq X (atof txt)) (setq S (+ S X)) ) ) ;if结束括号 (setq i (1+ i)) ) (if (= SCL nil) (setq scl (getreal "\n高度<高度>:")) (progn (setq scl (strcat "\n高度<" (rtos scl) ">:"))) )

(command "text" A0 "" 0 (strcat "所选" (rtos SM 2) "个数据的和是=" (rtos S 2 1))) (setq en1 (entlast)) (command "scale" en1 "" A0 scl) (prin1) ) (prompt"\n命令提示符<<jszl>>") (prin1)

这是我自己的一个求和的程序,源程序是教程上的一个程序,我修改了一下,就成这模样了,按照楼上的意思照样不能运行,哪位大虾试试.看看怎么改就好了.小弟先谢了.

swaywood · 发表于 2004-5-27 06:08

搞不清楚你要干什么，A0是什么东西？

swaywood · 发表于 2004-5-27 06:14

你这个小程序问题倒不少，A0 还有 SCL都有问题，为什么那样做？

swaywood · 发表于 2004-5-27 06:32

(defun c:jszl(/ i s a0 a1 tz en1 x sm ac) (setvar "cmdecho" 0) (setvar "blipmode" 0) (princ "\n选取数字") (SETQ I 0 S 0) (setq ss (ssget '((0 . "TEXT")))) (repeat (sslength ss) (setq ssn (ssname ss i)) (setq ssdata (entget ssn)) (setq txt (cdr (assoc 1 ssdata))) (setq X (atof txt)) (setq S (+ S X)) (setq i (1+ i)) ) (SETQ AL (strcat "所选" (rtos I 2) "个数据的和是=" (rtos S 2 1))) (ALERT AL) )

koalabear · 发表于 2004-5-27 17:09

不好意思，a0是文字的输入点，没注意给删掉了。

koalabear · 发表于 2004-5-27 17:19

还有斑竹没看明白我的问题，我主要的问题是关于如何输入scl，第一次加载程序scl为空，这时需要提醒输入，当再次运行程序的时候获取这个scl数值，当需要修改的时候修改，不需修改的时候不用修改，直接按空格键就可以了。其他的程序纯粹是一个载体.主要还是检验 (if (= SCL nil) (setq scl (getreal "\n高度<高度>:")) (progn (setq scl (strcat "\n高度<" (rtos scl) ">:"))) )这部分程序.

swaywood · 发表于 2004-5-27 20:15

(defun c:test (/ tmp) (if (= SCL nil) (setq scl (getreal "\n高度<高度>:")) (progn (setq tmp scl) (if (setq scl (getreal "\n高度")) () (setq scl tmp) ) ) ) (princ) )