liminnet 发表于 2008-6-18 17:59:00

ZZXXQQ 发表于 2008-6-18 23:04:00


(if (setq s1 (entsel "\nSelect a dimension 选择尺寸 :"))
   (if (and (setq ent (entget (car s1)))
            (= (cdr (assoc 0 ent)) "DIMENSION")) (progn
    (setq dnm (cdr (assoc 3 ent)))
    (setq lnm (cdr (assoc 8 ent)))
    (command "-DIMSTYLE" "R" dnm)
    (command "layer" "s" lnm "")
   ))
)

liminnet 发表于 2008-6-19 08:56:00

caoyin 发表于 2008-6-19 09:07:00

<p>(setq www1 (entsel "\n text-1:"))</p><p>添加(if (progn </p><p><br/>&nbsp; (setq en1 (car www1))</p><p>)end_progn</p><p>);end_if</p><p>...</p><p></p>

liminnet 发表于 2008-6-20 10:31:00

caoyin 发表于 2008-6-20 11:09:00

(if (progn
是告诉你语法结构
(defun c:zz (/ oce www1 www2 en1 en2 nr1 nr2 e1 e2 ss n)
(if (setq www1 (entsel "\n text-1:"))
    (progn
      (setq oce (getvar "cmdecho"))
      (setvar "cmdecho" 0)
      (setq en1 (car www1))
      (setq e1 (entget en1))
      (setq whlnr (assoc 1 e1))
      (while (setq ss (ssget ":S" '((0 . "text"))))
      (setq n -1)
      (repeat (sslength ss)
          (setq en2 (ssname ss (setq n (1+ n))))
          (setq e2 (entget en2))
          (setq nr2 (assoc 1 e2))
          (setq e2 (subst whlnr nr2 e2))
          (entmod e2)
      )
      )
      (setvar "cmdecho" oce)
    )
)
(princ)
)

liminnet 发表于 2008-6-20 11:15:00

页: [1]
查看完整版本: 请教为什么有的lsp在执行过程中用空格键会出现参数类型错误: lentityp nil