绅士--盖德问答-化工人互助问答社区

绅士

影响力0.00

经验值0.00

粉丝6

设备工程师

关注已关注 私信

他的提问 2147 他的回答 13884

如何在cad的不同窗口上切换？ 窗口菜单中有垂直布置和水平布置的选项,可随意选择查看更多

5 0条评论

请问PROII中组分设定的问题？ c1, c2, c3就是我们所谓的甲烷，乙烷和丙烷，往下还会有nc4，ic4,,, to lydiayu，其实直接选择“most commonly used” 去搜索simsci name/alias就可以查出来这些简称，看了一下，这些简称对应的数据库刚好在process bank下面，不是simsci bank，所以你没有搜索到查看更多

1 0条评论

来自话题：

化学学科

，

工艺技术

，

请教二氧化锰氧化问题？ 应该是二氧化猛活性不够，要用活性高的二氧化锰，直接买试剂公司的，自己做的可能不行查看更多

3 0条评论

来自话题：

工艺技术

，

跪求，合成氨变换工段，全低变流程的初步设计，包括如下 ...？ 这个好像不太好吧还得要自己去做查看更多

1 0条评论

来自话题：

工艺技术

，

蒸气冷凝水作为循环水使用是否合适? 严重的资源浪费！蒸汽凝结水的成本是多少？循环水的成本是多少？差得多啊！查看更多

#冷凝水

6 0条评论

PRO/II基础入门视频？ 请发给我一份proii基础入门视频吧，谢谢！邮箱： bhb1977 查看更多

8 0条评论

想请问一下CAD图层开关的快捷键？ ;;; ----------------------------------------------------------------- ;;; 2 图层命令 ;;; ------------------------------------------------------------------ ;;; 2.1 layeroff 关闭物体所在的层（单选） (defun c ayeroff (/ ent lname) (setvar "cmdecho" 0) (setq ent (entsel "\npick an entity on the target layer: ")) (if ent (progn (setq ent (entget (car ent))) (setq lname (cdr (assoc 8 ent))) ) (setq lname (getstring "\nnot to selected, input layer name: ")) ) (if (= (getvar "clayer") lname) (setvar "clayer" "0") ) (command "layer" "off" lname "") (princ) ) ;;; 2.2 layeroffm 关闭物体所在的层（多选） (defun c ayeroffm () (setvar "cmdecho" 0) (prompt "\nselect entities to turn off:") (setq ss (ssget)) (if (and ss (sslength ss) ) (progn (setq ct 0 len (sslength ss) cl (getvar "clayer") ) (command ".layer") (while ( ct len) (setq la (cdr (assoc 8 (entget (ssname ss ct))))) (if (/= cl la) (command "off" la) (progn (prompt "\nthe layer ") (prompt la) (prompt " is current!") (command "off" la "y") ) ) (setq ct (1+ ct)) ) (command "") ) ) (princ) (setvar "cmdecho" 0) (prin1) ) ;;; 2.2.1 layeroffmm 关闭物体所在的层（多选,选中一层立刻关闭） (defun c ayeroffmm ( / bln code ct la len motion pt pt1 ssent ssent1) (command "undo" "be") (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setvar "osmode" 0) (setq bln t) (while bln (setq motion (grread t 15 2)) (setq code (car motion)) (cond ((= code 3) (setq pt (cadr motion)) (setq ssent (ssget pt)) (if (/= ssent nil) (progn (setq la (cdr (assoc 8 (entget (ssname ssent 0))))) (if (= la (getvar "clayer")) (progn (command "layer" "off" la "y" "") (prompt "\nthe layer ") (prompt la) (prompt " is current!") ) (command "layer" "off" la "") ) ) (progn (setq pt1 (getcorner pt "选择另一角点：")) (if ( (car pt) (car pt1)) (setq ssent1 (ssget "_w" pt pt1)) (setq ssent1 (ssget "_c" pt pt1)) ) (if (and ssent1 (sslength ssent1)) (progn (setq ct 0) (setq len (sslength ssent1)) (while ( ct len) (setq la (cdr (assoc 8 (entget (ssname ssent1 ct))))) (if (= la (getvar "clayer")) (command "layer" "off" la "y" "") (command "layer" "off" la "") ) (setq ct (1+ ct)) ) (setq bln nil) ) (setq bln nil) ) ) ) ) ((= code 11) (setq bln nil) ) ) ) (setvar "osmode" os) (command "undo" "e") (princ) ) ;;; 2.3 layeroffother 关闭物体以外的层 (defun c ayeroffother (/ ent lname) (setvar "cmdecho" 0) (setq ent (entsel "\npick an entity on the target layer: ")) (if ent (progn (setq ent (entget (car ent))) (setq lname (cdr (assoc 8 ent))) (setvar "clayer" lname) ) ) (command "layer" "off" "*" "n" "") (princ) ) ;;; 2.3.1 layeroffotherm 关闭物体以外的层（多选） (defun c ayeroffotherm (/ ss ct cl la old) (setvar "cmdecho" 0) (prompt "\nselect entities on the layers you want to remain:") (setq ss (ssget)) (setq ct 0 len (sslength ss) cl (cdr (assoc 8 (entget (ssname ss 0)))) ) (setvar "clayer" cl) (while ( ct len) (setq la (cdr (assoc 8 (entget (ssname ss ct))))) (if (= old nil) (setq old la) (setq old (strcat old "," la)) ) (setq ct (1+ ct)) ) (command ".layer" "off" "*" "n" "") (command ".layer" "on" old "") (princ) ) ;;; ------------------------------------------------------------------ ;;; 2.4 layerlockm 锁住物体所在的层（多选） (defun c:layerlockm (/ es en el a) (setq es (ssget "selected entity(s) layers locked:") a 0 en "" el nil fl nil ) (while (/= en nil) (setq en (ssname es a) el (cons en el) a (1+ a) ) ) (setq el (cdr el) fl (cdr (assoc '8 (entget (car el)))) el (cdr el) ) (repeat (- a 2) (setq en (cdr (assoc '8 (entget (car el)))) fl (strcat en "," fl) el (cdr el) ) ) (command "layer" "lo" (eval fl) "") (princ) ) ;;; 2.5 layerunlockm 解锁物体所在的层（多选） (defun c:layerunlockm (/ es en el a) (princ "selected entity(s) layers unlocked.") (setq es (ssget) a 0 en "" el nil fl nil ) (while (/= en nil) (setq en (ssname es a) el (cons en el) a (1+ a) ) ) (setq el (cdr el) fl (cdr (assoc '8 (entget (car el)))) el (cdr el) ) (repeat (- a 2) (setq en (cdr (assoc '8 (entget (car el)))) fl (strcat en "," fl) el (cdr el) ) ) (command "layer" "u" (eval fl) "") (princ) ) ;;; ------------------------------------------------------------------ ;;; 2.6 layerfreezem 冻结物体所在的层（多选） (defun c:layerfreezem (/ es en el a) (princ "selected entity(s) layers freezed.") (setq es (ssget) a 0 en "" el nil fl nil ) (while (/= en nil) (setq en (ssname es a) el (cons en el) a (1+ a) ) ) (setq el (cdr el) fl (cdr (assoc '8 (entget (car el)))) el (cdr el) ) (repeat (- a 2) (setq en (cdr (assoc '8 (entget (car el)))) fl (strcat en "," fl) el (cdr el) ) ) (command "layer" "f" (eval fl) "") (princ) ) ;;; 2.7 layerthawall 解冻所有的层 (defun c:layerthawall () (command "layer" "thaw" "*" "") (princ) ) ;;; ------------------------------------------------------------------ ;;; 2.8 layercurrent 将物体所在的层设为当前层 (defun c:layercurrent (/ ent lname) (setvar "cmdecho" 0) (setq ent (car (entsel "\npick an entity on the target layer: "))) (if ent (progn (setq ent (entget ent) lname (cdr (assoc 8 ent)) ) ) (progn (setq lname (getstring "\nnot to selected, input layer name: ")) ) ) (setvar "clayer" lname) (princ) ) ;;; ------------------------------------------------------------------ ;;; 2.9 layeronall 打开所有层 (defun c:layeronall () (command "layer" "on" "*" "") (princ) ) ;;; ------------------------------------------------------------------ ;;; 2.10 tocurrentlayerm 将物体转到当前层（多选），并使用层颜色，线型 (defun c:tocurrentlayerm (/ lname ss) (setq ss (ssget)) (if ss (progn (setq lname (getvar "clayer")) (command "chprop" ss "" "la" lname "color" "bylayer" "ltype" "bylayer" "" ) ) ) ) ;;; ------------------------------------------------------------------ ;;; 2.11 tolayermatch 通过目标物体改变选择实体的图层属性 (defun c:tolayermatch (/ lname ss ent) (setvar "cmdecho" 0) (prompt "\nselect the entity(s): ") (setq ss (ssget)) (if ss (progn (setq ent (entsel "\npick an entity on the target layer: ")) (if ent (progn (setq ent (entget (car ent))) (setq lname (cdr (assoc 8 ent))) ) (progn (setq lname (getstring "\nnot to selected, input layer name: ")) ) ) (command "chprop" ss "" "la" lname "") ) ) (princ) ) 别人编好的lisp，稍微懂点编程的改下就成为自己的了，自己随便设置快捷键就好了。不会编程的话给我站内发短消息了。查看更多

4 0条评论

黄色醋酸如何脱色？ 实在不行就蒸馏一次，当然前端脱色最好，能耗低查看更多

1 0条评论

求咨询注册化工工程师？ 基础一直有效，工作年限不能超过毕业证上毕业时间，有没有用看你们单位有没有需求。查看更多

4 0条评论

离心泵启动时没关泵体排液导淋有哪些异常现象? 离心泵启动时都要关出口全开入口阀门，这时泵的出口阀前压力最大，电流最小，注意强腐蚀介质的泄漏，启动人员要注意防护，泵体排液倒淋是为检修和防冻用的，流量较小，不会造成大的影响，但是压力太大会造成泵体震动，所以不能忘记在开泵时除了排气用一下外要立即关掉。查看更多

10 0条评论

工艺配管技术词汇？ 不能看,为什么呢?查看更多

7 0条评论

来自话题：

化学学科

，

双氧水脱硫技术经济分析？ 这个貌似还是有待考证的技术啊查看更多

8 0条评论

化工项目中蒸汽压力等级一般分几种? 低、中、高压共三种查看更多

#化工项目

4 0条评论

你们有高温补贴吗？ 回复 1# 229800197 听说是500元人民币，还没有到手呢查看更多

6 0条评论

来自话题：

化学学科

，

工艺技术

，

国内有么有二氧化碳与氢气制一氧化碳的技术？从化工原理上讲，一般情况下，二氧化碳和氢气混合是不反应的，二氧化碳碳氧键结合比较紧密，相对来说co2就比较稳定，不易被氢气还原。co2和h2反应一般需要比较苛刻的条件，不如高温 200度，高压 1mp，还有有催化剂的存在。而且生成的产物比较复杂，一般含有co，甲醇，和低碳烷烃。即使有苛刻的条件，co2的转化率也比较低！... 目前，二氧化碳与氢气没有工业化，而且此反应能耗很高，可寻找其他的利用烟气中二氧化碳技术。查看更多

3 0条评论

来自话题：

化学学科

，

管线震动大，有什么好的办法解决? 那怎么办啊？这个问题还没能彻底解决呢，你先加托管看看效果吧。查看更多

7 0条评论

来自话题：

工艺技术

，

四川泸州有望与壳牌合作发展煤气化项目？ 这项目不知道什么时候能成型！查看更多

8 0条评论

来自话题：

仪器设备

，

工艺技术

，

往复式压缩机油系统问题？ 控制油吧！往复式压缩机不是汽轮机查看更多

1 0条评论

空压站新人求照顾？ 只对空压站冷却系统略有了解，楼主是否需要我的联系方式交流一下。我搞空压站的。也是热能动力。4575743 查看更多

4 0条评论

尿基三元复合肥的结块问题？因为各厂的生产工艺及产品情况不太相同,结块的原因又是多种多样的....所以有些生产厂家用的好的防结块剂,用到其它肥料厂家就不一定好.....现在防结块剂也没有什么标准,,也没法检测...最好的方法就是在实际生产中做实验...... 防结块剂现阶段应用最广的就是油状包膜油,和粉状防结块剂两种.....粉状防结剂是近几年开发的一种产品.....现在已逐步替代包膜油....因为包膜油的使用较麻烦...成本较高... 防结块剂的生产厂家较好,北京,上海,山东都比较多....查看更多

10 0条评论

上一页203 204 205 206 207 208 209 210 211 212 213下一页

简介

职业：天津话梅糖网络科技有限公司 - 设备工程师

学校：山东艺术学院 - 艺术文化学院

地区：浙江省

个人简介：我眼里容不得一粒沙子，同样也容不得你。查看更多

喜爱的版块返回首页

已连续签到天，累积获取个能量值

第1天
第2天
第3天
第4天
第5天
第6天
第7天