质心批标

q3_2006 · 发表于 2013-9-10 10:17:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 q3_2006 于 2013-9-10 14:47 编辑

已经按照版主的指点改过来了。

;批标面积
(defun c:tt (/ ar pt s1 ss th)
(if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
(progn
(xdrx_setsstodb ss 0)
(while (setq s1 (xdrx_getentdata 0))
(setq th (getvar "dimscale")
pt (cadr (assoc "Centroid" (xdrx_curve_info s1)))
ar (rtos (cadr (assoc "Area" (xdrx_curve_info s1))) 2 2)
)
(if pt
(vl-cmdf "text" "j" "mc" pt th "" (strcat "面积=" ar "平方米") "")
)
)
)
)
(princ)
)
;批标质心
(defun c:tt ( / ar i pt s1 ss len)
(if (setq ss (ssget '((0 . "*line,arc,circle,ellipse")))
)
(progn
(xdrx_setsstodb ss 0)
(while (setq s1 (xdrx_getentdata 0))
(setq len (getvar "dimscale")
pt (cadr (assoc "Centroid" (xdrx_curve_info s1))))
(if pt
(xdrx_polyline_make (polar pt (/ pi 2) (* len 5)) pt (polar pt 0 (* len 5)) t)
)
)
)
)
(princ)
)

;批标面积 
(defun c:tt (/ ar pt s1 ss th) 
  (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse")))) 
    (progn 
      (xdrx_setsstodb ss 0) 
      (while (setq s1 (xdrx_getentdata 0)) 
(setq th (getvar "dimscale") 
       pt (cadr (assoc "Centroid" (xdrx_curve_info s1))) 
       ar (rtos (cadr (assoc "Area" (xdrx_curve_info s1))) 2 2) 
) 
(if pt 
   (vl-cmdf "text" "j" "mc" pt th "" (strcat "面积=" ar "平方米") "") 
) 
      ) 
    ) 
  ) 
  (princ) 
) 
;批标质心 
(defun c:tt ( / ar i pt s1 ss len) 
  (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))) 
      ) 
      (progn 
       (xdrx_setsstodb ss 0) 
    (while (setq s1 (xdrx_getentdata 0)) 
                          (setq len (getvar "dimscale") 
                 pt (cadr (assoc "Centroid" (xdrx_curve_info s1)))) 
      (if pt 
       (xdrx_polyline_make (polar pt (/ pi 2) (* len 5)) pt (polar pt 0 (* len 5)) t) 
    ) 
  ) 
) 
) 
  (princ) 
)

q3_2006 · 发表于 2013-9-10 10:46:29

批标面积

(defun c:tt ( / ar i pt s1 ss th)
(if (setq ss (ssget)
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i)))
th (getvar "dimscale")
pt (cadr (assoc "Centroid" (xdrx_curve_info s1)))
ar (rtos (cadr (assoc "Area" (xdrx_curve_info s1))) 2 2)
)
(vl-cmdf "text" "j" "mc" pt th "" (strcat "面积=" ar "平方米") "")
)
)
(princ)
)

同样提示

XDSoft · 发表于 2013-9-10 10:47:37

把有问题的图传到论坛来，供测试下，谢谢！

图不要全部，就你选完有问题的曲线做个外部块出来。

newer · 发表于 2013-9-10 11:12:37

给你的代码提点建议，ssget的时候，一般加上过滤条件，把不需要处理的实体剔除掉。

比如：(if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
            (progn
            )
         )

因为你只要处理的是曲线类实体。

newer · 发表于 2013-9-10 11:15:39

q3_2006 发表于 2013-9-10 10:46
批标面积同样提示

另外，关于选择集处理，建议熟悉下面的结构。

(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
......
)

或者：

(setq entl (xdrx_pickset->ents ss))
(foreach e entl
......
)

newer · 发表于 2013-9-10 11:17:03

q3_2006 发表于 2013-9-10 10:46
批标面积同样提示

还有，创建多段线，API也有现成函数，替换掉命令 vl-cmdf

(xdrx_polyline_make p1 p2 ...pn T)

q3_2006 · 发表于 2013-9-10 11:24:03

XDSoft 发表于 2013-9-10 10:47
把有问题的图传到论坛来，供测试下，谢谢！

图不要全部，就你选完有问题的曲线做个外部块出来。

CAD版本2010 就是写代码时临时测试图，没什么特别的！

q3_2006 · 发表于 2013-9-10 11:35:41

newer 发表于 2013-9-10 11:15
另外，关于选择集处理，建议熟悉下面的结构。

(xdrx_setsstodb ss 0)

对API了解不多，知道的函数很少{:soso_e127:} ，知道了，改了。另外，晓东服务器没问题吧，怎么打开网页要好几分钟？都没耐性了！

newer · 发表于 2013-9-10 11:41:40

q3_2006 发表于 2013-9-10 11:35
对API了解不多，知道的函数很少，知道了，改了。另外，晓东服务器没问题吧，怎么打开网页 ...

感觉是比以前慢，但是可以忍受啊，基本几秒内就打开了。你用的是什么网络，联通？电信？移动？

newer · 发表于 2013-9-10 11:45:04

q3_2006 发表于 2013-9-10 11:35
对API了解不多，知道的函数很少，知道了，改了。另外，晓东服务器没问题吧，怎么打开网页 ...

测试了你的图形，2008下，三条曲线都没有问题

令: (xdrx_curve_info (car (entsel)))
选择对象: (("Perimeter" 59.1002) ("Area" 306.085) ("Centroid" (3873.45 1357.92))
("MomInertia" 5.6441e+008 4.59238e+009) ("ProdInertia" 1.60995e+009)
("PrinMoments" 7457.72 8080.82) ("PrinAxes" (0.604355 0.796715) (-0.796715
0.604355)) ("RadGyration" 1357.93 3873.45) ("Box" (3864.02 1347.7) (3893.44
1376.55)))
命令: (xdrx_curve_info (car (entsel)))
选择对象: (("Perimeter" 50.833) ("Area" 324.995) ("Centroid" (3904.1 1354.22))
("MomInertia" 5.96017e+008 4.95357e+009) ("ProdInertia" 1.71825e+009)
("PrinMoments" 7499.78 9586.81) ("PrinAxes" (0.996754 -0.0805023) (0.0805023
0.996754)) ("RadGyration" 1354.23 3904.1) ("Box" (3893.45 1345.11) (3914.63
1364.06)))
命令: (xdrx_curve_info (car (entsel)))
选择对象: (("Perimeter" 45.7777) ("Area" 127.21) ("Centroid" (3850.63 1371.09))
("MomInertia" 2.39141e+008 1.88618e+009) ("ProdInertia" 6.7161e+008)
("PrinMoments" 1899.16 957.533) ("PrinAxes" (1.0 0.0) (0.0 1.0)) ("RadGyration"
1371.09 3850.63) ("Box" (3845.88 1364.4) (3855.38 1377.78)))

复制代码

q3_2006 · 发表于 2013-9-10 11:52:54

批标面积改版

(defun c:tt ( / ar pt s1 ss th)
(if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
(progn
(xdrx_setsstodb ss 0)
(while (setq s1 (xdrx_getentdata 0)
th (getvar "dimscale")
pt (cadr (assoc "Centroid" (xdrx_curve_info s1)))
ar (rtos (cadr (assoc "Area" (xdrx_curve_info s1))) 2 2)
)
(vl-cmdf "text" "j" "mc" pt th "" (strcat "面积=" ar "平方米") "")
)
)
)
(princ)
)

newer · 发表于 2013-9-10 11:55:15

本帖最后由 newer 于 2013-9-10 11:56 编辑

你试试，下面代码还保错不。

(defun c:tt (/ i len pt s1 ss)
(if (setq ss (ssget)
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq len (getvar "dimscale")
pt (cadr (assoc "Centroid" (xdrx_curve_info s1)))
)
(if pt
(vl-cmdf "pline" (polar pt (/ pi 2) (* len 5)) pt (polar pt 0 (* len 5)) "")
)
)
)
(princ)
)

newer · 发表于 2013-9-10 11:58:15

q3_2006 发表于 2013-9-10 11:52
批标面积改版

while 里面不要写那么多，就一个获得E的代码就够，选择集遍历完，E为NIL，结束循环，别在SETQ里面后面加那么多别的语句，这样就容易出错，因为SETQ最后一个赋值才是SETQ返回给WHILE判断的条件。

q3_2006 · 发表于 2013-9-10 11:59:26

批标质心改版

(defun c:tt ( / ar i pt s1 ss len)
(if (setq ss (ssget '((0 . "*line,arc,circle,ellipse")))
)
(progn
(xdrx_setsstodb ss 0)
(while (setq s1 (xdrx_getentdata 0)
len (getvar "dimscale")
pt (cadr (assoc "Centroid" (xdrx_curve_info s1)))
)
(xdrx_polyline_make (polar pt (/ pi 2) (* len 5)) pt (polar pt 0 (* len 5)) t)
)
)
)
(princ)
)

newer · 发表于 2013-9-10 12:08:09

q3_2006 发表于 2013-9-10 11:59
批标质心改版

没有看到上面帮你修改的代码吗？

你的代码，在WHILE循环判断结束里面，在选择集遍历完毕后，S1等于NIL了，应该结束，可你还要运行了
len (getvar "dimscale")
pt (cadr (assoc "Centroid" (xdrx_curve_info s1)))

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

[每日一码] 质心批标

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评

点评