[求助]：请高手帮我调试一下程序

alwaysbin · 发表于 2007-8-31 23:16:42

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

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

×

很简单，想写一个小程序，
把图上所有大于5的数字，改成红色！！

[FONT=courier new]
(DEFUN C:tor ()
(SETVAR "CMDECHO" 0)
(SETQ SS (SSGET "X" '((0 . "*TEXT") )))
(if (> ss 5) (command "chprop" ss"" "c" 1 ""))
(setq k (1+ k))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/FONT]

请高手帮我看看哪里不对？？

露水2 · 发表于 2007-9-1 01:03:54

(defun  c:test ()
(SETQ SS (SSGET "X" '((0 . "TEXT")) ))
  (setq i 0)
   (repeat (sslength ss)
   (setq en (ssname ss i))
   (setq test (cdr (assoc 1 (entget en))))
   (setq tes (atof test))
   (if (> tes 5)
(command "chprop" en "" "c" 1 "")
)
(setq i (1+ i))
   )
)

你的程序问题太大

alwaysbin · 发表于 2007-9-1 19:07:23

谢谢楼上，变成红色还是不醒目，
如果我想把文字放大3倍，该怎么修改一下呢？？

zxq0220 · 发表于 2007-9-2 12:01:11

[php]
(DEFUN C:TEST ()
(SETVAR "CMDECHO" 0)
(PRINC "\nSelect Text(s) :")
(IF (SETQ SS (SSGET "X" '((0 . "TEXT")))) (PROGN
  (SETQ I -1)
  (REPEAT (SSLENGTH SS)
(SETQ EN (SSNAME SS (SETQ I (1+ I)))
   ENT (ENTGET EN)
   PT (CDR (ASSOC 10 ENT)))
(if (> (ATOF (CDR (ASSOC 1 ENT))) 5)
(COMMAND "SCALE" EN "" PT 3)
)
  )
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

Dream.Fei · 发表于 2007-9-2 15:14:45

试试：

(defun c:x1 (/ cor date en index scal ss txt)
(and (setq index 0)
(setq ss (ssget '((0 . "*TEXT"))))
(while (setq en (ssname ss index))
(setq date (entget en))
(setq txt (cdr (assoc 1 date)))
(if (> (aotf txt) 5)
(progn
(if (setq cor (assoc 62 date))
(setq date (subst '(62 . 1) cor date))
(setq date (append date '(62 . 1)))
)
(setq scal (assoc 40 date))
(setq date (subst (cons 40 (* (cdr scal) 3)) scal date))
)
)
(entmod date)
(entupd en)
(setq index (1+ index))
)
)
)

zml84 · 发表于 2007-9-3 09:01:23

学习楼上 and 的用法。。。

alwaysbin · 发表于 2007-9-4 09:16:19

看看我的程序吧

[FONT=courier new]
(defun c:tor ()
(SETQ SS (SSGET '((0 . "TEXT")) ))
(setq i 0)
(repeat (sslength ss)
(setq en (ssname ss i))
(setq test (cdr (assoc 1 (entget en))))
(setq tes (atof test))
(setq pt (cdr (assoc 10 (entget en))))
(if (> tes 5)
command "_.scale" en "" pt 3)
(command "chprop" en "" "c" 1 "")
)
(setq i (1+ i))
)
)
[/FONT]

我是想同时实现变红和放大，但现在只能单独实现一个，两个就不行，那位高手指点一下！！！！

carrot1983 · 发表于 2007-9-4 14:57:20

原因就出在你对if 的用法不明确.
(if 条件语句1 语句2)
当满足条件时,执行语句1,当不满足条件时,执行语句2
[php]
(defun c:tor (/ EN I PT SS TES TEST)
  (setvar "cmdecho" 0)
  (command ".undo" "be")
  (if (setq ss (ssget "X" '((0 . "*text")))
         i  0
   )
(repeat (sslength ss)
   (setq en    (ssname ss i)
      test (cdr (assoc 1 (entget en)))
      tes    (atof test)
      pt    (cdr (assoc 10 (entget en)))
      i    (1+ i)
   )
   (if (> tes 5)
(command "_.scale" en "" pt 3 "chprop" en "" "c" 1 "")
   )
)
  )
  (command ".undo" "en")
  (princ)
)
[/php]

Dream.Fei · 发表于 2007-9-5 02:14:51

对选择集使用repeat有时会出错.

zml84 · 发表于 2007-9-5 10:31:09

最初由 Dream.Fei 发布
[B]对选择集使用repeat有时会出错. [/B]

请给个例子。

在一次 · 发表于 2007-9-8 14:18:25

真是高手阿

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

[求助] [求助]：请高手帮我调试一下程序

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

相关帖子