lisp菜鸟求助一个问题，望各大侠帮忙

jly0406

我是做门窗的，想弄个lisp程序能判断玻璃是否需要钢化，如果钢化则标上符号，但我是个菜鸟，菜鸟都算不上，请各大侠给帮个忙

这是我照葫芦画瓢瞎弄上的，运行总是报错，; 错误: 参数类型错误: FILE

玻璃是矩形，单位是毫米，首先求出玻璃面积并转化到平方米单位，然后判断玻璃面积是否大于1.5平方，如果大于，那么在玻璃上标注两个星就可以（**），如果小于，则提示“普通玻璃无需钢化”即可。

 

(defun c:gh();LISP判断玻璃是否钢化程序
(Vl-load-com)

  (setq area (vla-get-area (vlax-ename->vla-object (entlast))))
  (princ area)
    (setq areab (/ area 1000000))

  if(( < 1.5 areab)   ;判断是否大于1.5平方，就是这块系统报错
          ( progn

          (setq ss (getpoint()))       ;指定插入点

          (command "text" ss  "**");语法好像是不对，不知道咋改

          (princ areab "双钢化")

          )
       (princ areab"普通玻璃无需钢化")
     )
)

Gu_xl

语法问题挺多！给你个正确的，自己慢慢比较一下吧！

4. (defun c:gh();LISP判断玻璃是否钢化程序
5. (Vl-load-com)
6. (princ "\n选择要判断钢化的玻璃")
7.   (setq area (vla-get-area (vlax-ename->vla-object (car (entsel)))))
8.   (princ area)
9.     (setq areab (/ area 1000000))
11.   (if( < 1.5 areab)   ;判断是否大于1.5平方，就是这块系统报错
12.           ( progn
13.           (setq ss (getpoint"\n指定插入点:"))       ;指定插入点
14.           (command "text" ss 1500 0 "**" "");语法好像是不对，不知道咋改
15.           (princ areab )(princ " 双钢化")
16.           )
17.    (progn
18.        (princ areab) (princ " 普通玻璃无需钢化")
19.        )
20.      )
21.   (princ)
22. )

(defun c:gh();LISP判断玻璃是否钢化程序 (Vl-load-com) (princ "\n选择要判断钢化的玻璃")   (setq area (vla-get-area (vlax-ename->vla-object (car (entsel)))))   (princ area)     (setq areab (/ area 1000000))   (if( < 1.5 areab)   ;判断是否大于1.5平方，就是这块系统报错           ( progn           (setq ss (getpoint"\n指定插入点:"))       ;指定插入点           (command "text" ss 1500 0 "**" "");语法好像是不对，不知道咋改           (princ areab )(princ " 双钢化")           )    (progn        (princ areab) (princ " 普通玻璃无需钢化")        )      )   (princ) )

jly0406

真是太感谢大侠了，给我解决了老大的问题，非常感谢，真的非常感谢！

jly0406

劳烦大侠再帮我看一下，下边的程序我做了些修改，想实现的功能是先画出矩形玻璃，然后判断这个玻璃是否需要钢化，但是出了问题，在entsel，entlast的位置出了问题entsel就正确，entlast就错误，请教大侠该怎么更改

 

(defun c:gh1();LISP判断玻璃是否钢化程序
(Vl-load-com)
   (setq pa (getpoint"\n矩形玻璃插入点:"))
   (setq ww 1320) ;随便设的玻璃尺寸
   (setq hh 1200)
   (setq pb (polar pa 0 ww))
   (setq pc (polar pb (/ pi 2) hh))
   (setq pd (polar pc pi ww))
   (command "_rectang" pa pc ) ;画矩形玻璃
   (setq area (vla-get-area (vlax-ename->vla-object (car (entsel)))))  ;好像是这块调用有问题entsel，entlast
   (setq areab (/ area 1000000))
  (if( < 1.5 areab)   ;判断是否大于1.5平方
          ( progn
          (setq ttmp (polar pb pi 500))    
   (setq ss (polar ttmp (/ pi 2) 60))  ;插入点位置
          (command "text" ss 300 0 "**" "")
          (princ areab )(princ " 双钢化")
          )
   (progn
       (princ areab) (princ " 普通玻璃无需钢化")
       )
     )
  (princ)
)

Andyhon

try

 

(car (entsel))

==>

(entlast)