2013-07-03 明经 AutoLISP 编程(102918348) 群聊记录：(vl-load-com) (defun C:zx( / np1 np2 n

明经快报

[天财]天财 09:40:02

(vl-load-com)
(defun C:zx( / np1 np2 np3 np4 e1 e2 i ii mindis obj1 obj2 pt1 pt2 pt3 pt4 ss ssn)
(setq SS (ssget '((0 . "ARC,*LINE,CIRCLE"))))
  (setq i 1)
  (setq ssn (sslength ss))
  (repeat (1- ssn)
    (setq E1 (ssname SS i))
    (setq ii (1+ i))
      (setq E2 (ssname SS ii))
  (if (and 
      E1 
      E2 
     (setq OBJ1 (vlax-ename->vla-object E1))
     (setq OBJ2 (vlax-ename->vla-object E2))
     (setq pt1 (vlax-curve-getstartpoint E1))
     (setq pt2 (vlax-curve-getEndPoint E1))
     (setq pt3 (vlax-curve-getstartpoint E2))
     (setq pt4 (vlax-curve-getEndPoint E2))
     (setq np1 (th-per pt1 obj2))
     (setq np2 (th-per pt2 obj2))
     (setq np3 (th-per pt3 obj1))
     (setq np4 (th-per pt4 obj1))
     (< (max np1 np2 np3 np4) 8000)
     (> (setq mindis (min np1 np2 np3 np4)) 0)
      )
    (command "._OFFSET" (/ mindis 2) e1 pt3 "")
    
  )  
     (setq cl_x (entlast))
     (command "change" cl_x "" "" "c" "2" "")
    (setq i (1+ i))
    )
  (princ)
)
;;; ==================================================================
;;; 返回(距离  垂足) 点pt到直线的距离和垂足.
;;; ==================================================================
(defun th-per (pt obj / pt2 dist)
  (if (and
        pt
        obj
      )
    (setq dist (distance pt (setq pt2 (vlax-curve-getclosestpointto obj pt t))))
  )
)

明经快报

[天财]天财 09:55:24

[qqimg]201307/{3E51A856-2DE1-422B-14A6-B57473609B44}.gif[/qqimg]

[lisp-study]jun 10:03:46

偏心能搞么

[天财]天财 10:04:08

偏心能 但是 这个容易出错

[lisp-study]jun 10:04:32

[天财]天财 10:04:40

偏移轴线 然后再写梁 [qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]

当然 梁线那段码我么发出来

[lisp-study]jun 10:05:29

怎么确定梁宽？

[天财]天财 10:13:11

主次梁还是可以的

[天财]天财 10:18:55

轴线计算时候发生错误

[qqimg]201307/{3131F809-4353-D80C-8619-70E32518B2F5}.gif[/qqimg]

[天财]天财 10:24:41

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg] 最后再加个 外框线剪除就完美了 一键建地下室模板

[lisp-study]jun 10:34:41

是啊 你这样手动打断还不如用探索者的画梁呢

明经快报

[mitenickevin]kevin 10:45:12

[qqimg]201307/{DCD55E74-3A9E-2CD6-2074-EE836DC816EB}.gif[/qqimg]
谁有这个的源码呀，没有币下载不了。
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=99628　　[求多边形内相对中心点] 源码

[【KAIXIN】] [【KAIXIN】]炫翔 10:46:44

接收

[天财]天财 10:46:58

我有打断程序 和删除小于某长度距程序

[【KAIXIN】] [【KAIXIN】]炫翔 10:47:17

可以合并成一个

过滤掉图层等...

明经快报

[天财]天财 11:01:55

快速画图 都是多功能 多命令组合 要不软件优越性体现不出来

[tryhi]大海 11:05:29

请问在移动跟复制的时候，没有显示出那个影像要怎么设置

[tryhi]大海 11:05:59

[qqimg]201307/{DA1A0ADB-BA60-1DC5-6961-901ACCDABDE0}.jpg[/qqimg]

[mmh1][mmh1]漫步地球 11:06:17

额，我还以为是排料程序呢，把这些排在一起呢

明经快报

[xieling888] 11:25:12

[qqimg]201307/{025522AC-E25A-4783-669E-244AF05346C4}.jpg[/qqimg]

CAD有没有 这样的画笔功能啊

[xieling888] 11:27:33

能直接随意画固定直径的槽，

明经快报

[开1心]开心就好 11:50:24

不是extrim么

明经快报

[yifei]绝然 13:50:03

怎么打开一个WINDOWS 程序？

[mmh1][mmh1]漫步地球 13:51:49

startapp ？？

[yifei]绝然 13:53:03

不打开文件呢

"C:Program FilesDicad rodpfedit.exe"

只想打开这个 EXE

明经快报

[csc123456]顽强 14:04:50

半夜，酒劲还未下去的丈夫把妻子推醒:"喂,咱们家闹鬼了~"妻子:"你怎么知道?""刚才我上厕所.刚打开门,厕所灯就自己亮了,等我上完厕所关上门,厕所灯又自己灭了.""你是不是还感到一阵阴风吹来?"妻子关切的问."对，是一阵寒风.""你这个混蛋!"妻子怒吼道:"你又朝冰箱里撒尿了!"！

[yifei]绝然 14:11:26

(command "shell" "C:Program FilesDicad rodpfedit.exe")

这个不对！！

明经快报

[偏爱云~小吴] 14:22:31

各位大侠如何用commond实现快速选择

[yifei]绝然 14:29:32

33 是什么 意思

[qqimg]201307/{97719392-F200-DF3F-98A7-AF62C204833A}.jpg[/qqimg]

[死者不舞] 14:32:04

哪位朋友有？按指定点的切线方向进行圆滑连接，

有这个程序

两条曲线按指定点的切线方向进行圆滑连接，

[冷面修罗] 14:38:17

组码？

[死者不舞] 14:40:02

程序

[yifei]绝然 14:40:05

不知道

[qqimg]201307/{58151D8E-140D-34C1-CA7B-666B4762F2FC}.jpg[/qqimg]

加个路径是不是能快点

明经快报

[野狼谷]笨鸟 14:51:12

（apply （read（strcat