“引线序号球标”诚恳求助

冒个烟圈 · 发表于 2015-5-30 16:19:49

各位师兄，前辈！
以下代码淘自明经，原创是哪位真不知道，故在此区域恳求帮忙修正以下问题点
问题点：新建文件刚加载时可以运行，结束后第2次执行命令出错，提示：“ 错误: 参数类型错误: stringp 3”
另请把乱码译成简体汉字，先在此谢谢！

(defun c:cc()
(setvar "cmdecho" 0)
(if (= ccvar nil)(setq ccvar (list 15 15 1 1 "Y" "")))
(setq r(getreal (strcat "\n蛾畖<" (rtos (car ccvar)) ">:")));;砞0碞ぃ穦礶蛾ㄓ
(setq h(getreal (strcat "\nゅ蔼<" (rtos (cadr ccvar)) ">:")))
(setq n(getint (strcat "\n秨﹍絪腹<" (itoa (caddr ccvar)) ">:")))
(setq b(getint (strcat "\n絪腹︗计<" (itoa (cadddr ccvar)) ">:")))
(initget 0 "Y N")
(setq k (getkword (strcat "\n絪腹秨繷?琌(Y)/(N)<" (nth 4 ccvar)">:")))
(if (= k nil)(setq k (nth 4 ccvar)))
(setq s "" marks (nth 5 ccvar))
(if (= k "Y") (progn
(setq s (getstring (strcat "\n絪腹秨繷<" marks ">:")))
(if (= s "")(setq s marks)(setq marks s))
))
(if (= r nil)(setq r (car ccvar)))
(if (= h nil)(setq h (cadr ccvar)))
(if (= n nil)(setq n (caddr ccvar)))
(if (= b nil)(setq b (cadddr ccvar)))
(setq ss "" bb (itoa n))
(while (setq pt (getpoint "\n匡翴:"))
(setq ceo nil)
(repeat (- b (strlen bb)) (setq ss (strcat ss "0")))
(if (> r 0) (progn (command "circle" pt r) (setq ceo (entget (entlast)))))
(command "text" "J" "mc" pt h "" (strcat s ss bb))
(setq teo (entget (entlast)))
(command "leader" pt (polar pt (/ pi 4) r) "" "" "n")
(setq leo (entget (entlast)))
(setq p1 (cdr (assoc 10 leo)) k 1)
(while (/= k 3)
(setq p (grread T))
(setq k (car p) p (cadr p))
(if (> r 0) (progn
(setq ceo (subst (cons 10 p) (assoc 10 ceo) ceo))
(entmod ceo)
))
(setq teo (subst (cons 11 p) (assoc 11 teo) teo))
(entmod teo)
(setq p (polar p (angle p p1) r))
(setq leo (subst (cons 10 p) (assoc 10 (reverse leo)) leo))
(if (> (distance p p1) 0.0) (entmod leo))
)
(setq n (1+ n) ss "" bb (itoa n))
)
(setq ccvar (list r h n b k marks))
(setvar "cmdecho" 1)
(princ)
)
(princ "\nC:cc")
(prin1)

该贴已经同步到冒个烟圈的微博

冒个烟圈 · 发表于 2015-5-30 19:35:56

有人帮忙吗？自己先顶上

simpleye · 发表于 2015-5-30 20:37:50

r为球标半径，h为字高，n球标开开始数字，b球标的位数，如个位数1，二位数为01，三位数003，s为数字前加符号，pt应该在屏幕上点击吧。
提示：“ 错误: 参数类型错误: stringp 3”，把(initget 0 "Y N")相关的取掉应该可以了吧，呵呵，具体你试一下。

冒个烟圈 · 发表于 2015-5-30 20:41:34

simpleye 发表于 2015-5-30 20:37
r为球标半径，h为字高，n球标开开始数字，b球标的位数，如个位数1，二位数为01，三位数003，s为数字前加符号 ...

好勒。。我试试看。。因为是新手，下午弄了半天

冒个烟圈 · 发表于 2015-5-30 22:18:53

simpleye 发表于 2015-5-30 20:37
r为球标半径，h为字高，n球标开开始数字，b球标的位数，如个位数1，二位数为01，三位数003，s为数字前加符号 ...

谢谢你提示。。我试了下可以使用，
但是这样的话，就不能添加序的前缀（如：字母A）了，这个功能还是保留的好，做组立图有一半能用的上添加字母功能，
期待好心人帮忙能在原有功能不变的同时解决问题

simpleye · 发表于 2015-5-31 07:31:04

我试了都可以的，你是不是修改错了。还有一点，最好在前面设置osmode为0,箭头改为圆点，

冒个烟圈 · 发表于 2015-5-31 10:53:39

simpleye 发表于 2015-5-31 07:31
我试了都可以的，你是不是修改错了。还有一点，最好在前面设置osmode为0,箭头改为圆点，

在不删除(initget 0 "Y N")
(setq k (getkword (strcat "\n絪腹秨繷?琌(Y)/(N)<" (nth 4 ccvar)">:")))
(if (= k nil)(setq k (nth 4 ccvar)))
这个功能的前提下你能帮我修改好吗？
或者用其它的语句替代它也行，谢谢。

kwok · 发表于 2015-5-31 16:23:14

冒个烟圈发表于 2015-5-31 10:53
在不删除(initget 0 "Y N")
(setq k (getkword (strcat "\n絪腹秨繷?琌(Y)/(N):")))
...

(defun c:cc(/ ccvar r h n b k s ss bb pt ceo teo leo p1 p marks)
(setvar "osmode" 0)
加上局部变量和关掉捕种，估计就可以了

冒个烟圈 · 发表于 2015-5-31 19:39:10

kwok 发表于 2015-5-31 16:23
(defun c:cc(/ ccvar r h n b k s ss bb pt ceo teo leo p1 p marks)
(setvar "osmode" 0)
加上局部变量 ...

按您说的试了下，结果OK了。非常感谢！！！

huxu823 · 发表于 2024-4-9 13:55:57

(defun c:cc ()
  (setvar "cmdecho" 0)
  (if (= ccvar nil) (setq ccvar (list 15 15 1 1 "N" "")))
  (setq r (getreal (strcat "\n圆圈半径<" (rtos (car ccvar)) ">:")))
  (setq h (getreal (strcat "\n输入字高<" (rtos (cadr ccvar)) ">:")))
  (setq n (getint (strcat "\n起始序号<" (itoa (caddr ccvar)) ">:")))
  (setq b (getint (strcat "\n序号位数[前面补0]<" (itoa (cadddr ccvar)) ">:")))
  (initget 0 "Y N")
  (setq k (getkword (strcat "\n是否设置前缀(Y)/(N)<" (nth 4 ccvar) ">:")))
  (if (= k nil) (setq k (nth 4 ccvar)))
  (setq s "" marks (nth 5 ccvar))
  (if (= k "Y")
(progn
   (setq s (getstring (strcat "\n设置前缀<" marks ">:")))
   (if (= s "")
(setq s marks)
(setq marks s)
   )
)
  )
  (if (= r nil) (setq r (car ccvar)))
  (if (= h nil) (setq h (cadr ccvar)))
  (if (= n nil) (setq n (caddr ccvar)))
  (if (= b nil) (setq b (cadddr ccvar)))
  (setq ss "" bb (itoa n))
  (while (setq pt (getpoint "\n指定起点:"))
(setq ceo nil)
(repeat (- b (strlen bb)) (setq ss (strcat ss "0")))
(if (> r 0) (progn (command "circle" pt r) (setq ceo (entget (entlast)))))
(command "text" "J" "mc" pt h "" (strcat s ss bb))
(setq teo (entget (entlast)))
(command "leader" pt (polar pt (/ pi 4) r) "" "" "n")
(setq leo (entget (entlast)))
(setq p1 (cdr (assoc 10 leo)) k  1)
(while (/= k 3)
   (setq p (grread T))
   (setq k (car p) p (cadr p))
   (if (> r 0)
(progn
   (setq ceo (subst (cons 10 p) (assoc 10 ceo) ceo))
   (entmod ceo)
)
   )
   (setq teo (subst (cons 11 p) (assoc 11 teo) teo))
   (entmod teo)
   (setq p (polar p (angle p p1) r))
   (setq leo (subst (cons 10 p) (assoc 10 (reverse leo)) leo))
   (if (> (distance p p1) 0.0) (entmod leo))
)
(setq n  (1+ n) ss "" bb (itoa n))
  )
  (setq ccvar (list r h n b k marks))
  (setvar "cmdecho" 1)
  (princ)
)
(princ "\n命令:CC")
(princ)

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

[已解答] “引线序号球标”诚恳求助