想定义一个点 参数类型错误: numberp: nil

皇上快溜

想定义一个点，接上面出现给定的圆心点p，在圆外正下方270度，也就是6点钟下面定义一个点。

  (setq bw (* 1.5 pi))   ；；；圆外正下方270度
  (setq p0 (polar p bw (*(* 1.2 r)k)))   ；；；p圆心点  p0为想要定义的那个点，距圆心点p的距离为r1.2倍再乘以scale比值k
  (setq knr (strcat "SCALE " (rtos factor 2 0) ":1"))
  (command "text" p0 (getvar "dimtxt") "0" xl)
  (command "text" (polar p0 (* pi 1.5) (* dz(+ (* (getvar "dimtxt") 0.8) (getvar "dimtxt")))) (getvar "dimtxt") "0" knr)
  (princ))

程序报错   参数类型错误: numberp: nil     请问各位老大，问题出在哪里？谢谢

ll_j

(setq knr (strcat "SCALE " (rtos factor 2 0) ":1"))
这里的factor是什么？

皇上快溜

ll_j 发表于 2016-8-27 09:06
(setq knr (strcat "SCALE " (rtos factor 2 0) ":1"))
这里的factor是什么？

尺寸测量比例因子。
请问，关於270度处定义的那个点错在哪里？

ZZXXQQ

自己查下变量，可能是变量中没数。

皇上快溜

ZZXXQQ 发表于 2016-9-3 23:32
自己查下变量，可能是变量中没数。

谢谢版主
有时贴代码长了发不动帖子。。

2. (DEFUN C:SS (/ E P PC K R N EP)
   
3.    (setvar "osmode" 0)
   
4.    (setq pt (getpoint "\n圆心点: "))
   
5.    (command "circle" pt pause)
   
6.    (command "chprop" (entlast) "" "lt" "center" "s" "1" "c" "6" "")
   
7.    (setq e  (entlast)
   
8.          pc (cdr (assoc 10 (entget E)))
   
9.          xl (getstring"\n序列号:")
   
10.          P  (getpoint "\n放置点: ")
    
11.          K  (getreal "\n比例: ")
    
12.          r  (cdr (assoc 40 (entget e)))
    
13.    )
    
14.    (command "copy" "cp")
    
15.    (setq n 0)
    
16.    (repeat 180
    
17.      (command (polar pc (/ (* 2 n pi) 180) r))
    
18.      (setq n (+ n 1))
    
19.    )
    
20.    (command "" "" pc p)
    
21.    (setq n 0)
    
22.    (setvar "pickbox" 5)
    
23.    (command "circle" p r)
    
24.    (setq ep (entlast))
    
25.    (command "trim" ep "")
    
26.    (repeat 180
    
27.      (command "f" (polar p (/ (* 2 n pi) 180) (* r 1.01)))
    
28.      (setq n (+ n 1))
    
29.      (command (polar p (/ (* 2 n pi) 180) (* r 1.01)) "")
    
30.    )
    
31.   (command "")
    
32.   (command "scale" "c" (list (- (car p) r) (- (cadr p) r))
    
33.            (list (+ (car p) r) (+ (cadr p)r)) "" p k)
    
34. 
    
35.   (setq ss (ssget "p" '((0 . "dimension"))))
    
36.   (command "erase" ep "")
    
37.   (if ss
    
38.   (progn
    
39.     (setq oldds (getvar "dimstyle"))
    
40.     (command "dimstyle" "restore" "" (ssname ss 0))
    
41.     (setq oldfac (getvar "dimlfac"))
    
42.     (SETVAR "dimlfac" (/ oldfac k))
    
43.     (command "dimstyle" "apply" ss "")
    
44.     (command "dimstyle" "r" oldds)))
    
45. 
    
46.   (setq bw (* pi 1.5))
    
47.   (setq p0 (polar p bw (*(* 1.2 r)k)))
    
48.   (setq knr (strcat "SCALE " (rtos factor 2 0) ":1"))
    
49.   (command "text" p0 (getvar "dimtxt") "0" xl)
    
50.   (command "text" (polar p0 (* pi 1.5) (* dz(+ (* (getvar "dimtxt") 0.8) (getvar "dimtxt")))) (getvar "dimtxt") "0" knr)
    
51.   (princ))

(DEFUN C:SS (/ E P PC K R N EP)<br />    (setvar "osmode" 0)<br />    (setq pt (getpoint "\n圆心点: "))<br />    (command "circle" pt pause)<br />    (command "chprop" (entlast) "" "lt" "center" "s" "1" "c" "6" "")<br />    (setq e  (entlast)<br />          pc (cdr (assoc 10 (entget E)))<br />          xl (getstring"\n序列号:")<br />          P  (getpoint "\n放置点: ")<br />          K  (getreal "\n比例: ")<br />          r  (cdr (assoc 40 (entget e)))<br />    )<br />    (command "copy" "cp")<br />    (setq n 0)<br />    (repeat 180<br />      (command (polar pc (/ (* 2 n pi) 180) r))<br />      (setq n (+ n 1))<br />    )<br />    (command "" "" pc p)<br />    (setq n 0)<br />    (setvar "pickbox" 5)<br />    (command "circle" p r)<br />    (setq ep (entlast))<br />    (command "trim" ep "")<br />    (repeat 180<br />      (command "f" (polar p (/ (* 2 n pi) 180) (* r 1.01)))<br />      (setq n (+ n 1))<br />      (command (polar p (/ (* 2 n pi) 180) (* r 1.01)) "")<br />    )<br />   (command "")<br />   (command "scale" "c" (list (- (car p) r) (- (cadr p) r))<br />            (list (+ (car p) r) (+ (cadr p)r)) "" p k)<br /> <br />   (setq ss (ssget "p" '((0 . "dimension"))))<br />   (command "erase" ep "")<br />   (if ss<br />   (progn<br />     (setq oldds (getvar "dimstyle"))<br />     (command "dimstyle" "restore" "" (ssname ss 0))<br />     (setq oldfac (getvar "dimlfac"))<br />     (SETVAR "dimlfac" (/ oldfac k))<br />     (command "dimstyle" "apply" ss "")<br />     (command "dimstyle" "r" oldds)))<br /> <br />   (setq bw (* pi 1.5))<br />   (setq p0 (polar p bw (*(* 1.2 r)k)))<br />   (setq knr (strcat "SCALE " (rtos factor 2 0) ":1"))<br />   (command "text" p0 (getvar "dimtxt") "0" xl)<br />   (command "text" (polar p0 (* pi 1.5) (* dz(+ (* (getvar "dimtxt") 0.8) (getvar "dimtxt")))) (getvar "dimtxt") "0" knr)<br />   (princ))

皇上快溜

ZZXXQQ 发表于 2016-9-3 23:32
自己查下变量，可能是变量中没数。

谢谢老大热心相助。

楼下的程序，仍然是参数类型错误: numberp: nil，无法在p0点上生成文本。
很奇怪，我尝试在p0点上做这个动作：(command "circle"p0 3)  又能生成一个圆，唯独文本不行，不知是否文本部分代码有问题？
起初，该程序是没有标注这两行文本的功能的，我先定义好这个p0点，然后从别的程序搬来代码，起初文本内容knr处在第一行位置，能成功标出，，，后来又加了个序列号xl，序列号内容放第一行，knr放第二行，程序就不行了

另外，在程序开头部分(command "circle" pt pause)完成之后，想请你帮我加个动作，用_qleader或_dimradius动态画折线标注序列号内容。我不懂再画圆之后如何选中圆的弧，动态地衔接_qleader命令。

谢谢老大

ll_j

文本设置时，字高一项可以为一个值，也可以为0，为0时，在书写文本时会多一个字高的选项，所以使用(command "text" ...)时，因为字高设置的不同，后面的参数数量也不同。根据你的描述，问题应该出在这里，你再试一下。
建议你试着使用entmake来“造”文本，自己定义构造函数，这样参数多少就根据自己的需要了。

皇上快溜

ll_j 发表于 2016-9-21 16:30
文本设置时，字高一项可以为一个值，也可以为0，为0时，在书写文本时会多一个字高的选项，所以使用(command ...

谢谢指点，，字高是(getvar "dimtxt")，，，entmake这个不懂，，可以写个简单语句么，仅仅就(command "text" ...)部分，谢谢你

皇上快溜

这样搞也不行，，，，，
  (command "Ortho" "on")
  (setq fx (getpoint P "\n方向:"))
  (setq fx (polar P (angle P fx) (* 1.2 r k)))
  (setq knr (strcat "SCALE " (rtos factor 2 0) ":1"))
  (command "text" fx (getvar "dimtxt") "0" xl)
  (command "text" (polar fx (* pi 1.5) (* dz(+ (* (getvar "dimtxt") 0.8) (getvar "dimtxt")))) (getvar "dimtxt") "0" knr)

这方法，此前也是zzQQXX版主教的，用在其他地方超顺无比，用这里又不行了，大约应是 (command "text"，，，，的问题