[求助]：一个LSP程序的问题？

hbhswy

这是一个求和的程序，在R14下运行没问题，为什么加载到2002下就不能用了呢？提示："要绑定的对象不正确: T"
高手帮帮我啊！我在此谢了！

(DEFUN C:gross(/ p1 p2)
(command "osnap" "")
(if (not i) (setq i (GETREAL "\n比例<1:x> x: ")))
(princ "请输入计算精度？ <2>")
(setq pnumber (getint " "))
(if (not pnumber) (setq pnumber 2))
(setq p1 (getpoint "\nfirst point of the cross "))
(setq p2 (getcorner p1 "\nsecond point of the cross "))   
(gross1)
  (setq p1 (getpoint "\nwhere to write the weighth?"))
(setq txth (* i 3.5))
  (command "text" p1 txth "0" txt)
)

lijiao

1、代码不全，无法分析，(gross1)在什么地方？
2、可以在VL环境中调试，应该能找到问题的所在。

hbhswy

这是一个求和的程序，在R14下运行没问题，为什么加载到2002下就不能用了呢？提示："要绑定的对象不正确: T"
高手帮帮我啊！我在此谢了！

(DEFUN C:gross(/ p1 p2)
(command "osnap" "")
(if (not i) (setq i (GETREAL "\n比例<1:x> x: ")))
(princ "请输入计算精度？ <2>")
(setq pnumber (getint " "))
(if (not pnumber) (setq pnumber 2))
(setq p1 (getpoint "\nfirst point of the cross "))
(setq p2 (getcorner p1 "\nsecond point of the cross "))
(gross1)
(setq p1 (getpoint "\nwhere to write the weighth?"))
(setq txth (* i 3.5))
(command "text" p1 txth "0" txt)
)
(defun gross1(/ nne nn ss0 s ss)
(setq s (ssget "c" p1 p2))
  (setq kk 0)  
(setq nne (sslength s))
    (setq nn 0 ss0 0)
    (while (< nn nne)(progn
   (setq s0 (ssname s nn))
   (setq s1 (entget s0))
   (setq ss1 (assoc '10 s1))
(setq s1 (assoc '1 s1))
       (if s1 (progn
    (setq s1 (cdr s1))
    (setq ss1 (cdr ss1))
  (setq s1(point s1))
  (setq ss (atof s1))
   (if (/= ss 0) (progn (grdraw ss1 (polar ss1 (/ pi 5) (* 8 i)) 1 1)  (setq kk (+ kk 1)) (princ "+")(princ ss)))
    (setq ss0 (+ ss0 ss))))
     (setq nn (+ nn 1))))
     (setq txt (rtos ss0 2 pnumber))
    (progn (princ "\n共有")(princ kk)(Princ "数相加"))
    )

jxb8888

可以写个得出封闭图形的周长的东西吗？

lijiao

最初由 hbhswy 发布
[B]这是一个求和的程序，在R14下运行没问题，为什么加载到2002下就不能用了呢？提示："要绑定的对象不正确: T"
高手帮帮我啊！我在此谢了！

(DEFUN C:gross(/ p1 p2)
(command "osnap" "")
(if (not i) (setq i (... [/B]

我刚在2004上用了一下，没有问题。

hbhswy

2002怎么不行啊？

陌生人

哈哈，ｄｉｃｃｋ你还没被扣够分啊？还顶？先看看论坛规则吧
这里的论坛规则和别处的不一样