管道求解工具0.61（更新开放命令修改）

vectra · 发表于 2022-1-29 21:40:14

jialun22 发表于 2021-11-3 09:05
非常强大，想问问是否可以修改快捷

下个版本会考虑这个问题

shcvip · 发表于 2022-2-6 23:03:50

vectra 发表于 2022-1-29 21:40
下个版本会考虑这个问题

画风管的程序不错，可否分享源程序？

bbswen · 发表于 2022-2-8 11:40:36

修改弯头半径后，重绘混乱。

vectra · 发表于 2022-2-8 17:38:26

bbswen 发表于 2022-2-8 11:40
修改弯头半径后，重绘混乱。

需要删除已有弯头重新连接

MXS · 发表于 2022-5-17 16:00:19

牛，暖通专业的支持一下

hf423 · 发表于 2022-5-18 00:17:41

谢谢分享
不过0.6版本中
点管道连接打断会提示：LIB 未知命令“LIB”。按 F1 查看帮助。

vectra · 发表于 2022-5-19 12:54:37

对PSK对象属性操作的一些示例

;; PSK扩展工具
;; 清除对象上的所有扩展数据
(defun xdata-clear (/ ss)
(princ "\n选择要清除扩展数据的对象:")
(if (setq ss (ssget))
(progn
(foreach en (p-ss->enames ss)
(p-xdata-remove en "*")
)
)
)
)
;; 匹配扩展数据
(defun xdata-match (/ en ss xdata)
(if (and (setq en (car (entsel "\n选择源对象:")))
(princ "\n选择要匹配扩展数据的对象:")
(setq ss (ssget))
)
(progn
(setq xdata (p-xdata-get-inner en "*"))
(foreach en (p-ss->enames ss)
(p-xdata-set-inner en xdata)
)
)
)
)
;; 删除APPID为"PSK-PATH"中的指定属性"FRIC"
(defun prop-clear (/ ss)
(princ "\n选择要删除属性的对象:")
(if (setq ss (ssget))
(progn
(foreach en (p-ss->enames ss)
(p-xprop-remove en "PSK-PATH" "FRIC")
)
)
)
)
;; 将普通直线转换为"PSK-PATH"对象
(defun convert-path (/ ss)
(princ "\n选择要转换为路径的对象:")
(if (setq ss (ssget '((0 . "LINE"))))
(progn
(foreach en (p-ss->enames ss)
(p-xprop-set
en
"PSK-PATH"
'(
(".TYPE" . "PIPE")
)
)
)
)
)
)
(defun exportprop ()
(setq file (open "C:/1.csv" "w"))
(foreach e $psk-prop-defination
(write-line
(strcat (car e) "," (itoa (cadr e)) "," (caddr e) "," (cadddr e))
file
)
)
(close file)
)
;;
;; 批量设置对象的属性
;;;(setprop '(lambda (en) (p-xprop-set en "PSK-PART" '("FLR" . 500))))
;;;(setprop '(lambda (en) (p-xprop-set en "PSK-EQUIP" '("CLD" . 4.3))))
(defun setprop (fun)
(if (setq ss (ssget))
(progn
(foreach en (p-ss->enames ss)
(apply fun (list en))
)
)
)
)
;; 批量转换介质（用于版本 0.60前的旧图转换）
(defun convertserv ()
(if (setq ss (ssget))
(progn
(foreach en (p-ss->enames ss)
(if (setq serv (p-get '(("S" . "SA")
("H" . "RA")
("X" . "OA")
("P" . "EA")
("RS" . "RS")
("RP" . "RP")
("PY" . "SE")
("JY" . "PS")
("XB" . "MA")
("P(Y)" . "EA(SE)")
("S(B)" . "SA(MA)")
)
(psk-comp-get en "SERV")
)
)
(psk-comp-set en (cons "SERV" serv))
)
)
)
)
)
;; 汇总冷负荷
(defun psk-cld-total (/ tot)
(setq tot 0.)
(if (setq ss (ssget))
(progn
(foreach en (p-ss->enames ss)
(setq tot (+ tot (p-xprop-get en "PSK-EQUIP" "CLD")))
)
)
)
(princ tot)
)
;; 管线辅助工具 2021-4-1
(defun p-groupby (ents sortby / e lst p r)
(setq ents (mapcar (function (lambda (e) (list (p-dxf e sortby) e)))
ents
)
ents (vl-sort
ents
(function
(lambda (e1 e2) (< (car e1) (car e2)))
)
)
)
;; 分组
(while ents
(setq e (car ents)
p (car e)
)
(while (equal (car e) p)
(setq lst (cons (cadr e) lst) ;_ 将相同项合并
ents (cdr ents)
e (car ents)
)
)
(setq r (cons (cons p lst) r)
lst nil
)
)
r
)
;; 两条直线连接打断
;;;(mt-line-interbreak (car (entsel)) (car (entsel)))
(defun mt-line-interbreak (line1 line2 / p)
(if (and (not (equal line1 line2))
(setq p (p-line-getinters line1 line2))
)
(progn
(psk-line-breakat line1 p)
(psk-line-breakat line2 p)
)
)
)
;; 选定一组直线，按图层分组，如果每个图层中的直线是两条，对该两直线进行连接打断操作
(defun mt-lines-interbreak (/ ents)
(princ "\n选择要连接打断的直线:")
(if (setq ents (ssget))
(progn
(setq ents (p-ss->enames ents)
ents (p-groupby ents 8)
)
(foreach lines ents
(setq lines (cdr lines))
(if (= (length lines) 2)
(progn
(mt-line-interbreak (car lines) (cadr lines))
)
)
)
)
)
)
(defun c:bb (/)
(p-commandrun '(mt-lines-interbreak))
)
(defun c:xclear (/)
(p-commandrun '(xdata-clear))
)
(defun c:xma (/)
(p-commandrun '(xdata-match))
)
(defun c:convertpath (/)
(p-commandrun '(convert-path))
)
(defun c:cldtot (/)
(p-commandrun '(psk-cld-total))
)
;; 关闭风管相关图层
(defun psk-ductlayeroff ()
(command "._-LAYER" "OFF" "M-*风*,M-*烟*" "")
)
;; 打开风管相关图层
(defun psk-ductlayeron ()
(command "._-LAYER" "ON" "M-*风*,M-*烟*" "")
)

;; PSK扩展工具 
 
;; 清除对象上的所有扩展数据 
(defun xdata-clear (/ ss) 
  (princ "\n选择要清除扩展数据的对象:") 
  (if (setq ss (ssget)) 
    (progn 
      (foreach en (p-ss->enames ss) 
  (p-xdata-remove en "*") 
      ) 
    ) 
  ) 
) 
;; 匹配扩展数据 
(defun xdata-match (/ en ss xdata) 
  (if (and (setq en (car (entsel "\n选择源对象:"))) 
     (princ "\n选择要匹配扩展数据的对象:") 
     (setq ss (ssget)) 
      ) 
    (progn 
      (setq xdata (p-xdata-get-inner en "*")) 
      (foreach en (p-ss->enames ss) 
  (p-xdata-set-inner en xdata) 
      ) 
    ) 
  ) 
) 
;; 删除APPID为"PSK-PATH"中的指定属性"FRIC" 
(defun prop-clear (/ ss) 
  (princ "\n选择要删除属性的对象:") 
  (if (setq ss (ssget)) 
    (progn 
      (foreach en (p-ss->enames ss) 
  (p-xprop-remove en "PSK-PATH" "FRIC") 
      ) 
    ) 
  ) 
) 
;; 将普通直线转换为"PSK-PATH"对象 
(defun convert-path (/ ss) 
  (princ "\n选择要转换为路径的对象:") 
  (if (setq ss (ssget '((0 . "LINE")))) 
    (progn 
      (foreach en (p-ss->enames ss) 
  (p-xprop-set 
    en 
    "PSK-PATH" 
    '( 
      (".TYPE" . "PIPE") 
     ) 
  ) 
      ) 
    ) 
  ) 
) 
 
(defun exportprop () 
  (setq file (open "C:/1.csv" "w")) 
  (foreach e $psk-prop-defination 
    (write-line 
      (strcat (car e) "," (itoa (cadr e)) "," (caddr e) "," (cadddr e)) 
      file 
    ) 
  ) 
  (close file) 
) 
;; 
 
;; 批量设置对象的属性 
;;;(setprop '(lambda (en) (p-xprop-set en "PSK-PART" '("FLR" . 500)))) 
;;;(setprop '(lambda (en) (p-xprop-set en "PSK-EQUIP" '("CLD" . 4.3)))) 
(defun setprop (fun) 
  (if (setq ss (ssget)) 
    (progn 
      (foreach en (p-ss->enames ss) 
  (apply fun (list en)) 
      ) 
    ) 
  ) 
) 
;; 批量转换介质（用于版本 0.60前的旧图转换） 
(defun convertserv () 
  (if (setq ss (ssget)) 
    (progn 
      (foreach en (p-ss->enames ss) 
  (if (setq serv (p-get '(("S" . "SA") 
        ("H" . "RA") 
        ("X" . "OA") 
        ("P" . "EA") 
        ("RS" . "RS") 
        ("RP" . "RP") 
        ("PY" . "SE") 
        ("JY" . "PS") 
        ("XB" . "MA") 
        ("P(Y)" . "EA(SE)") 
        ("S(B)" . "SA(MA)") 
             ) 
            (psk-comp-get en "SERV") 
           ) 
      ) 
    (psk-comp-set en (cons "SERV" serv)) 
  ) 
      ) 
    ) 
  ) 
) 
 
;; 汇总冷负荷 
(defun psk-cld-total (/ tot) 
  (setq tot 0.) 
  (if (setq ss (ssget)) 
    (progn 
      (foreach en (p-ss->enames ss) 
  (setq tot (+ tot (p-xprop-get en "PSK-EQUIP" "CLD"))) 
      ) 
    ) 
  ) 
  (princ tot) 
) 
 
 
 
 
;; 管线辅助工具 2021-4-1 
(defun p-groupby (ents sortby / e lst p r) 
  (setq  ents (mapcar (function (lambda (e) (list (p-dxf e sortby) e))) 
         ents 
       ) 
  ents (vl-sort 
         ents 
         (function 
     (lambda (e1 e2) (< (car e1) (car e2))) 
         ) 
       ) 
  ) 
  ;;  分组 
  (while ents 
    (setq e (car ents) 
    p (car e) 
    ) 
    (while (equal (car e) p) 
      (setq lst   (cons (cadr e) lst) ;_ 将相同项合并 
      ents (cdr ents) 
      e   (car ents) 
      ) 
    ) 
    (setq r   (cons (cons p lst) r) 
    lst nil 
    ) 
  ) 
  r 
) 
;; 两条直线连接打断 
;;;(mt-line-interbreak (car (entsel)) (car (entsel))) 
(defun mt-line-interbreak (line1 line2 / p) 
  (if (and (not (equal line1 line2)) 
     (setq p (p-line-getinters line1 line2)) 
      ) 
    (progn 
      (psk-line-breakat line1 p) 
      (psk-line-breakat line2 p) 
    ) 
  ) 
) 
;; 选定一组直线，按图层分组，如果每个图层中的直线是两条，对该两直线进行连接打断操作 
(defun mt-lines-interbreak (/ ents) 
  (princ "\n选择要连接打断的直线:") 
  (if (setq ents (ssget)) 
    (progn 
      (setq ents (p-ss->enames ents) 
      ents (p-groupby ents 8) 
      ) 
 
      (foreach lines ents 
  (setq lines (cdr lines)) 
  (if (= (length lines) 2) 
    (progn 
      (mt-line-interbreak (car lines) (cadr lines)) 
    ) 
  ) 
      ) 
    ) 
  ) 
) 
 
(defun c:bb (/) 
  (p-commandrun '(mt-lines-interbreak)) 
) 
(defun c:xclear  (/) 
  (p-commandrun '(xdata-clear)) 
) 
(defun c:xma (/) 
  (p-commandrun '(xdata-match)) 
) 
(defun c:convertpath (/) 
  (p-commandrun '(convert-path)) 
) 
 
(defun c:cldtot (/) 
  (p-commandrun '(psk-cld-total)) 
) 
 
;; 关闭风管相关图层 
(defun psk-ductlayeroff  () 
  (command "._-LAYER" "OFF" "M-*风*,M-*烟*" "") 
) 
;; 打开风管相关图层 
(defun psk-ductlayeron  () 
  (command "._-LAYER" "ON" "M-*风*,M-*烟*" "") 
)

hf423 · 发表于 2022-5-19 14:42:06

提一个小建议，原始命令可以加长吗，特别是2个字母的比如AR、BB、DR、CX等，把acad.pgp里设定的命令别名都占用了。。。

Aries · 发表于 2022-5-30 12:30:35

不错玩一玩

nsh935 · 发表于 2023-5-22 13:16:23

支持

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

[资源] 管道求解工具0.61（更新开放命令修改）

点评

点评