2013-07-29 明经 AutoLISP 编程(102918348) 群聊记录：可以 做的 曲线上的定点 重新画线 再求各垂足

明经快报

[500w008]500w008 00:01:18

可以 做的 曲线上的定点 重新画线 再求各垂足

[夏生生][x_s_s_1]生无可恋 00:02:06

正N边形形心

[500w008]500w008 00:02:59

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg] 不是

[夏生生][x_s_s_1]生无可恋 00:03:23

自己玩儿吧

[500w008]500w008 00:03:23

[qqimg]201307/{B709BFC6-6F2B-2200-01B1-44908EBCF0FA}.jpg[/qqimg]

[夏生生][x_s_s_1]生无可恋 00:03:44

您老人家的思维

[500w008]500w008 00:04:32

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]

[qqimg]201307/{A9F79447-9F38-416A-D185-AEDFF2DE292F}.gif[/qqimg]

[500w008]500w008 00:05:22

[qqimg]201307/{A8B0A571-987E-9538-5459-8F2D32B5D2AB}.jpg[/qqimg]

[vormittag]桔子 00:06:51

这么多无聊的程序啊。

[夏生生][x_s_s_1]生无可恋 00:07:13

[vormittag]桔子 00:09:02

求表里的最大值，这得是多无聊才能把他写成一个lsp啊。

[夏生生][x_s_s_1]生无可恋 00:10:44

也许和max不同吧

粘贴为块也比较牛

[夏生生][x_s_s_1]生无可恋 00:12:04

回家睡觉，桔子兄晚安

[vormittag]桔子 00:12:23

晚安

明经快报

[500w008]500w008 00:23:36

明经快报

[500w008]500w008 01:37:41

(defun c:ct ()
(setq sstx (ssget '((0 . "text"))))
(setq i 0 si 0 znr nil)
(setq sltx (sslength sstx))
(repeat
 (progn
   (setq ent (ssname sstx si))
   (setq znr (cdr (assoc 1 (entget ent))))
   (setq pzr (cdr (assoc 10 (entget ent))))
    (cond
      ((= znr 阳台) (bjx pzr))
      ((= znr 卧室) (功能函数))
      ((= znr 客厅) (功能函数))
      ((= znr 卧室) (功能函数))
      ((= znr 卫生间) (bjx pzr))
      ((= znr 厨房) (bjx pzr))
      ((= znr 入户花园) (功能函数))
    );cond
 );pr
 (setq si (1+ si))
);re
(princ)
)


(command "LAYER" "MAKE" "洞口边线" "C" "2" "洞口边线" "LT" "CONTINUOUS" "洞口边线" "")
(defun bjx ( pzr / )
(command "-boundary" pzr "")
(setq pzr_l (entlast))
(command ".-bhatch" "p" "solid" "s" pzr_l "" "")   
)


(defun cz_get ( pzr / );返回点
(setq n 0 ssl nil ee nil czlst '())
(command "-boundary" pzr "")
(setq cz_ent (entlast))
(command "explode" cz_ent  "" )
(setq ssl (ssget "p"))
(repeat (sslength ssl)
  (progn
  (setq ee (ssname ssl n))
  (th_per pzr ee)
  (setq czlst (cons pt2 czlst))
  )
 (setq n (1+ n))
)
(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))))
  )
)

明经快报

[无痕]午夜咖啡 02:16:28

？

[500w008]500w008 02:18:02

在凑一个程序

明经快报

[无痕]午夜咖啡 02:30:45

干什么的

[500w008]500w008 02:34:55

按照建筑图出结构图

减少工作量 李总啊 天天看你熬夜 最近想买很多还是

项目很多还是有艳遇 呵呵

明经快报

[无痕]午夜咖啡 02:50:46

晚上安静，好打灰机

[500w008]500w008 02:51:59

[qqimg]201307/{2CE16159-2610-DCA0-311E-B2B39C47C627}.gif[/qqimg]

从我毕业一开始就看到你的代码

到现在你还不想退出江湖吗

明经快报

[as123456]as123456 06:24:22

明经快报

[Fei_smile][Fei_smile] 07:58:30

论坛账号登陆不进去了，大家能进去不？

明经快报

[Fei_smile][Fei_smile] 08:29:15

[qqimg]201307/{920A190F-8710-FA0B-D84A-28E94C73F7AF}.jpg[/qqimg]
哪位大侠能搞个这种小插件？

明经快报

[NetBee]网蜂 09:04:23

这个倒真灵活，