【求助】求一断面线程序

tm20038175 · 发表于 2012-4-20 15:58:10

坚决顶起来

tm20038175 · 发表于 2012-4-20 18:55:09

能顶出源码吗？？？？？？

xyp1964 · 发表于 2012-4-21 07:52:49

本帖最后由 xyp1964 于 2012-4-21 11:50 编辑

;; dmx(断面线) 伪源码需要e派工具箱的支持
(defun c:dmx (/ ilst ll1 ll2)
(cmdla0)
(defun main-pro (/ ss i s1)
(while (and (setq e1 (entsel "\n选择曲线<退出>: "))
(setq s1 (car e1))
(xyp-curve-check s1)
)
(setq pt (cadr e1)
pt (osnap pt "nea")
l0 (xyp-Get-LengthAtPoint s1 pt)
l1 (- l0 dist)
l2 (+ l0 dist)
ll (xyp-get-CurveLength s1)
)
(if (and (> l1 0) (< l2 ll))
(progn
(setq s0 (entlast)
p1 (xyp-Get-CurvePointAtDist s1 l1)
p2 (xyp-Get-CurvePointAtDist s1 l2)
p3 (xyp-get-MidPointdn p1 pt wide)
p4 (xyp-get-MidPointup pt p2 wide)
)
(xyp-BreakE s1 p1 p2)
(setq s2 (entlast)
s3 (xyp-Entmake-lwPolyline (list p1 p3 p4 p2) nil)
ss (xyp-SSelEntnext s0)
ss (ssadd s1 ss)
)
(xyp-PeditJoin ss 0)
)
)
)
)
(setq ll1 '(dist wide)
ll2 '(300. 300.)
)
(defun ajbcs () (xyp-Multiple-Settile ll1 ll2))
(xyp-initSet ll1 ll2)
(setq ilst '(("" "参数" ":boxed_column{")
("dist" "宽(D)" "real" "8")
("wide" "高(W)" "real" "8")
"spacer;"
"}"
"spacer;"
("jbcs" "缺省参数" "button1" "(ajbcs)")
"spacer;"
)
)
(if (= (xyp-Dcl-Init Ilst "【断面线】" t) 1)
(main-pro)
)
(cmdla1)
)

;; dmx(断面线) 伪源码需要e派工具箱的支持 
(defun c:dmx (/ ilst ll1 ll2) 
  (cmdla0) 
  (defun main-pro (/ ss i s1) 
    (while (and (setq e1 (entsel "\n选择曲线<退出>: ")) 
  (setq s1 (car e1)) 
  (xyp-curve-check s1) 
    ) 
      (setq pt (cadr e1) 
     pt (osnap pt "nea") 
     l0 (xyp-Get-LengthAtPoint s1 pt) 
     l1 (- l0 dist) 
     l2 (+ l0 dist) 
     ll (xyp-get-CurveLength s1) 
      ) 
      (if (and (> l1 0) (< l2 ll)) 
 (progn 
   (setq s0 (entlast) 
  p1 (xyp-Get-CurvePointAtDist s1 l1) 
  p2 (xyp-Get-CurvePointAtDist s1 l2) 
  p3 (xyp-get-MidPointdn p1 pt wide) 
  p4 (xyp-get-MidPointup pt p2 wide) 
   ) 
   (xyp-BreakE s1 p1 p2) 
   (setq s2 (entlast) 
  s3 (xyp-Entmake-lwPolyline (list p1 p3 p4 p2) nil) 
  ss (xyp-SSelEntnext s0) 
  ss (ssadd s1 ss) 
   ) 
   (xyp-PeditJoin ss 0) 
 ) 
      ) 
    ) 
  ) 
  (setq ll1 '(dist wide) 
 ll2 '(300. 300.) 
  ) 
  (defun ajbcs () (xyp-Multiple-Settile ll1 ll2)) 
  (xyp-initSet ll1 ll2) 
  (setq ilst '(("" "参数" ":boxed_column{") 
        ("dist" "宽(D)" "real" "8") 
        ("wide" "高(W)" "real" "8") 
        "spacer;" 
        "}" 
        "spacer;" 
        ("jbcs" "缺省参数" "button1" "(ajbcs)") 
        "spacer;" 
       ) 
  ) 
  (if (= (xyp-Dcl-Init Ilst "【断面线】" t) 1) 
    (main-pro) 
  ) 
  (cmdla1) 
)

tm20038175 · 发表于 2012-4-21 08:08:40

xyp1964 发表于 2012-4-21 07:52

院长能把子函数也放出来吗？不然就太有局限了，拜托了！………

tm20038175 · 发表于 2012-4-21 09:02:04

xyp1964 发表于 2012-4-21 07:52

院长不能在这样子了，总是与工具箱绑定，还不如不放出源码，掉了别人的口味，却掉进了一个大坑！
这样的结果只能招来一群人的鄙视，辛辛苦苦，这是何必呢！！！！

Andyhon · 发表于 2012-4-21 10:04:14

古董级的通例
Ref: http://www.findthatfile.com/sear ... load-stdlib-zip.htm

tm20038175 · 发表于 2012-4-21 11:04:36

Andyhon 发表于 2012-4-21 10:04
古董级的通例
Ref: http://www.findthatfile.com/search-3545438-hZIP/winrar-winzip-download-stdlib-zip ...

谢谢，有机会研究研究。。。。。。

xyp1964 · 发表于 2012-4-21 11:20:21

tm20038175 发表于 2012-4-21 09:02
院长不能在这样子了，总是与工具箱绑定，还不如不放出源码，掉了别人的口味，却掉进了一个大坑！
这样的 ...

程序可以不用，坑也可以不跳，鄙视谁或遭鄙视无法避免……

tm20038175 · 发表于 2012-4-21 11:26:41

xyp1964 发表于 2012-4-21 11:20
程序可以不用，坑也可以不跳，鄙视谁或遭鄙视无法避免……

难怪和KO走的如此近，一度KO还打着院长的旗号，当时大家还以为是KO在造谣撞骗，哪知真真假假，假假真真，当看到这样的言论时，顿时无语了~~~~~

xyp1964 · 发表于 2012-4-21 11:37:38

难道KO2要横空出世？！罢了……

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

【求助】求一断面线程序

本帖子中包含更多资源

点评

点评

点评

点评

浏览过的版块