yshf 发表于 2012-9-15 20:36:09

程序不错！

dabingrain 发表于 2016-6-20 16:37:53

(defun c:KK ()
        (setq loop T)
        (setvar "osmode" 37)
        (setq p0 (getpoint "pick point:"))
        (setq e (ssget "c" (polar p0 (/ pi 4) 0.001)
                                                (polar p0 (* 1.25 pi) 0.001)))
        (setq ent (ssname e 0))
        (setq obj (vlax-ename->vla-object ent)
                pp (vlax-curve-getclosestpointto obj (trans p0 1 0))
                n (fix (vlax-curve-getparamatpoint obj pp)))
        (setq pts (variant-value (vla-get-coordinates obj)))
        (while loop
                (setq p (grread T))
                (setq k (car p)
                        p (cadr p))
                (if (= k 3)(setq loop nil))
                (vlax-safearray-put-element pts (* n 2) (car p))
                (vlax-safearray-put-element pts (1+ (* n 2))(cadr p))
                (vla-put-coordinates obj pts)
                (princ "\r")
                (princ (vlax-curve-getarea obj))
        )
)

tongtong3489 发表于 2016-7-30 21:44:23

还好，就是不在屏幕上

柴月二号 发表于 2016-8-3 11:15:21

dabingrain 发表于 2016-6-20 16:37 static/image/common/back.gif


能不能加个运算使结果显示为    原结果*0.0015

tianbeiyuan 发表于 2019-11-23 21:23:15

好东西，看看学学

xxxooo 发表于 2025-2-23 00:19:21

非常好，感谢大大无私分享
页: 1 [2]
查看完整版本: (grread)拖动多义线顶点动态显示面积