请求将已有面积周长代码增加一个立面面积

yyz123121

已有代码——面积周长

(defun C:MJZC (/  pt a b c s ss tt ttt )
(vl-load-com)
(setvar "cmdecho" 0)
(setq TTS1 (getvar "textsize"))
(setvar "textsize" 300)
(setvar "cecolor" "20")
(while
(setq pt (getpoint "\\n请点取要标注的范围内一点:"))
(command "-boundary" pt "" "")
(setq a (entlast))
(setq b (vlax-ename->vla-object a))
(setq s (vla-get-area b))
(setq ss (rtos (/ s 1000000)2 2))
(setq tt (vla-get-length b))
(setq ttt (rtos (/ tt 1000)2 2))
(command "mtext"  pt pt (strcat "面积=" ss "平米\n" "周长=" ttt "米") "")
(command "erase" a "")
)
(command "cecolor" "bylayer")
(setvar "textsize" TTS1)
(setvar "cmdecho" 1)
(princ)
)


需求是增加一个功能，运行代码后首先让输入立面高度（单位为米），然后点取标注范围后，出来的文字增加一行立面面积，
变成：“面积=xxx，周长=xxx，立面=xxx”，也就是要用周长x输入的立面高度，并且输入的立面高度带记忆功能。

截图示意

yaojing38

yyz123121 发表于 2023-11-8 10:47
哪位帮忙看看哪里出错了，一运行就出现“错误: 参数类型错误: numberp:”

(defun C:MJZC (/  pt a b c s ...

2. (defun C:MJZC (/  pt a b c s ss tt ttt )
   
3. (vl-load-com)
   
4. (setvar "cmdecho" 0)
   
5. (setq TTS1 (getvar "textsize"))
   
6. (setvar "textsize" 300)
   
7. (setvar "cecolor" "20")
   
8.         (if (not LMH)
   
9.         (setq LMH (getstring "\n立面高度:"))
   
10.         (setq LMH (if (/= "" (setq LMH_D (getstring (strcat "\n立面高度<" LMH ">:")))) LMH_D LMH))
    
11. )
    
12. (while
    
13. (setq pt (getpoint "\\n请点取要标注的范围内一点:"))
    
14. (command "-boundary" pt "" "")
    
15. (setq a (entlast))
    
16. (setq b (vlax-ename->vla-object a))
    
17. (setq s (vla-get-area b))
    
18. (setq ss (rtos (/ s 1000000)2 2))
    
19. (setq tt (vla-get-length b))
    
20. (setq ttt (rtos (/ tt 1000)2 2))
    
21. (setq LMMJ (rtos (* (atof LMH) (atof  ttt)) 2 2))
    
22. (command "mtext"  pt pt (strcat "面积=" ss "平米\n" "周长=" ttt "米\n" "立面=" LMMJ "平米") "")
    
23. (command "erase" a "")
    
24. )
    
25. (command "cecolor" "bylayer")
    
26. (setvar "textsize" TTS1)
    
27. (setvar "cmdecho" 1)
    
28. (princ)
    
29. )

(defun C:MJZC (/  pt a b c s ss tt ttt )<br /> (vl-load-com)<br /> (setvar "cmdecho" 0)<br /> (setq TTS1 (getvar "textsize"))<br /> (setvar "textsize" 300)<br /> (setvar "cecolor" "20")<br />         (if (not LMH)<br />         (setq LMH (getstring "\n立面高度:"))<br />         (setq LMH (if (/= "" (setq LMH_D (getstring (strcat "\n立面高度<" LMH ">:")))) LMH_D LMH))<br /> )<br /> (while<br /> (setq pt (getpoint "\\n请点取要标注的范围内一点:"))<br /> (command "-boundary" pt "" "")<br /> (setq a (entlast))<br /> (setq b (vlax-ename->vla-object a))<br /> (setq s (vla-get-area b))<br /> (setq ss (rtos (/ s 1000000)2 2))<br /> (setq tt (vla-get-length b))<br /> (setq ttt (rtos (/ tt 1000)2 2))<br /> (setq LMMJ (rtos (* (atof LMH) (atof  ttt)) 2 2))<br /> (command "mtext"  pt pt (strcat "面积=" ss "平米\n" "周长=" ttt "米\n" "立面=" LMMJ "平米") "")<br /> (command "erase" a "")<br /> )<br /> (command "cecolor" "bylayer")<br /> (setvar "textsize" TTS1)<br /> (setvar "cmdecho" 1)<br /> (princ)<br /> )

yyz123121

哪位帮忙看看哪里出错了，一运行就出现“错误: 参数类型错误: numberp:”

(defun C:MJZC (/  pt a b c s ss tt ttt )
(vl-load-com)
(setvar "cmdecho" 0)
(setq TTS1 (getvar "textsize"))
(setvar "textsize" 300)
(setvar "cecolor" "20")
        (if (not LMH)
        (setq LMH (getstring "\n立面高度:"))
        (setq LMH (if (/= "" (setq LMH_D (getstring (strcat "\n立面高度<" LMH ">:")))) LMH_D LMH))
)
(while
(setq pt (getpoint "\\n请点取要标注的范围内一点:"))
(command "-boundary" pt "" "")
(setq a (entlast))
(setq b (vlax-ename->vla-object a))
(setq s (vla-get-area b))
(setq ss (rtos (/ s 1000000)2 2))
(setq tt (vla-get-length b))
(setq ttt (rtos (/ tt 1000)2 2))
(setq LMMJ (rtos (* LMH ttt)2 2))
(command "mtext"  pt pt (strcat "面积=" ss "平米\n" "周长=" ttt "米\n" "立面=" LMMJ "平米") "")
(command "erase" a "")
)
(command "cecolor" "bylayer")
(setvar "textsize" TTS1)
(setvar "cmdecho" 1)
(princ)
)

yyz123121

yaojing38 发表于 2023-11-7 21:05

谢谢！