[编程申请]：谁帮帮忙？

lsjjm

See my code:

(defun c:test ()
  (vl-load-com)
  (setq sum 0)
  (setq ent (car (entsel "\nSelect Original Number: ")))
  (setq dobj (vlax-ename->vla-object ent))
  (setq dval (atof (vla-get-textstring dobj)))
  (prompt "\Select taking away from Original: ")
  (setq ss (ssget '((0 . "TEXT"))))
  (setq n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (setq val (vla-get-textstring obj))
    (setq sum (+ sum (atof val)))
    (setq n (1+ n))
  )
  (setq sum (- dval sum))
)

hrbpkf

lsjjm  干得不错，只是不能直接标注，小妹加上一段，见笑了！

   (if (= xsw nil)
       (setq xsw 3))           ;;;可根据需要调整小数位数
   (if (or (= zg nil)(= zg 0))
       (setq zg 350))          ;;;可根据需要调整字高
   (setq ra (rtos sum 2 xsw))
   (SETQ PO (getpoint "\n请输入文字位置  "))
   (COMMAND "TEXT" PO zg 0 ra)

f5612140

最初由 eye 发布
[B]在CAD 中，编写一道LISP程序
可实现对图面中数字的相减。
我经常要统计工程量。

各位老大，请帮帮忙。谢谢。 [/B]

請問樓主是計算那一類的工程量,個人以為,以選取方式去計算結果很沒有效率,更何況再分類統計,如果能直接從圖面得到相關的數據並加以編號,再以程序自動分類統計更理想

lsjjm

这类程序很难编, 难的是各公司和人的要求不统一. 你说这她说那, 不容易满足.
因此论坛上只是给你一个思路或例子, 真正要解决问题, 还要你自己去修改.

coolzhb

新版本的文字修改大师可以实现此功能了！

f5612140

最初由 lsjjm 发布
[B]这类程序很难编, 难的是各公司和人的要求不统一. 你说这她说那, 不容易满足.
因此论坛上只是给你一个思路或例子, 真正要解决问题, 还要你自己去修改. [/B]

1.同意您的觀點,所以這也是lisp最大的優點,每個人都可以依自己的需求創造或修改程序配合工作上的需要提高工作效率
2.但有時一句話,一段文字可以改變原先程序設計時所沒有注意或沒有想到的思路,就以我為例,以前在計算牆高時,需配合樑位圖將牆線一一打斷,再分別給予厚度(牆高),因為覺得在整個作業時間上會佔用太多的時間,所以考慮牆線遇不同樑深或版下時可以自動打斷自動設定高度,二秒時間就可完成所要的結果,以前的作業方式相對同業做法已經很快了,再完善它的理由只是不滿足現況而已

playboy

二楼的朋友只是没有标注而已你只要吧标注的地方自己加一下就好了

chj_china

跳出井口，才发现天是那么大，那么高，真是天外有天人外有高人，我自己只是一只小小的井底之蛙！！各位高手，我真是佩服得五体投地，以后请多多指教。