[编程申请]：真的沒人會做嗎...

skevin1

天呀 為何沒人理我 真是人情冷暖呀 在這現代化的都市中人人留連於網路上 以忘記了助人為快樂之本了 鄰居相見也不在噓寒問暖了 公車上也不會有人讓座了 就連唯一有人情味的曉東網站也失去了原有的光采了
難道就只為了一個簡單的填充面積嗎..

其實這只是一個警訊而以
漸漸的大家開始麻木不仁 開始以看到別人的失敗而感到快樂

子曰:己所不慾勿施於人...意思是告訴我們如果這個女的沒辦法讓你有慾望那你也不要把他送給別人.....恩 對 要送給自己人.....
不對 我要說的是如果沒辦法寫這樣的lisp 起碼要說一聲呀....每天等在這裡看很累耶...

在這裡苦等也不是辦法的說........
建議曉東網站提供打電玩服務.或是笑話之類的  免的會員枯等...恩 對 為了大家我勇敢建議..

對了 如果大家有空 就幫我解決一下 那個lisp的問題吧
http://www.xdcad.net/forum/showthread.php?s=&threadid=462584

ps..不要打我...我也是想盡快解決問題的 autocad 公司抓那麼緊 都盯上我們公司了不得已要換中望...

xyp1964

不是什么都能帮你的，如果就因为没人能帮你而感到别人的“麻木不仁”，那你的要求也太高和太悲观了。
再者，你凭什么要求别人帮你，而你自己又付出了什么？！
由“填充”求其面积的程序早就有了，动动手搜索一下，难道要馅饼掉到你头上，呵呵……

露水2

看天上的馅饼不是来了，为r14的，不知道是不是你要的
；填充面积
(defun c:tm()
   (setvar "osmode" 0)
   (setq pt (getpoint "\\n选取点："))
   (while pt
       (setvar "cecolor" "1")
       (command "bpoly" pt "")
       (setq en (entlast))
       (if (/= en nil)
          (progn
             (command "area" "o" en)
             (setq aa (getvar "area"))
             (redraw en 3)
             (alert (strcat "面积:" (rtos aa 2)))
          );end progn
       );end if
       (entdel en)
       (setvar "cecolor" "bylayer")
       (setq pt (getpoint "\\n选取点:"))
    );end while
    (prin1)
)

skevin1

"不是什么都能帮你的，如果就因为没人能帮你而感到别人的“麻木不仁”，那你的要求也太高和太悲观了。"

當然幫不幫是個人自由..我的感覺應該也是我的自由....

"再者，你凭什么要求别人帮你，而你自己又付出了什么？！"

如果這個網站什麼都是要凭什么才可以的話我想這裡人氣應該沒有現在那樣好吧...你研究過我在這裡的狀態嗎?如果沒有而你就可以很直覺的質問我不是很奇特嗎...

"由“填充”求其面积的程序早就有了，动动手搜索一下，难道要馅饼掉到你头上，呵呵……"

不是沒搜索 是因為中望不支持arx 所以變成論壇上的一些現有的填充計算lsp 無法使用 所以才希望有人能告訴我解決方式...或許下次我們都應該培養好"看完人家的提問"或是"自己試過無法解決才提問的"不是嗎...呵呵<---這兩個自引用"xyp1964"文章結尾



感謝3樓提供的 不過在中望裡會出問題了...只能執行一次 換命令後再次執行就會出錯誤了
"錯誤: 用戶定義的Lisp函數不能是透明的..."
在複雜圖形內使用邊界計算經常出問題 所以才希望是以選擇已填充好的剖面線去做為計算面積的基準的....

eachy

首先，这里绝大多数人都用的是AutoCAD，中望支持Lisp到什么程度是未知的，之所以没有人回帖是因为不能援手，最后一句，仅用AutoLisp来求Hatch的面积是不可能，你还是向中望公司反映这个问题吧，就像Autodesk 2006已经可以直接用命令来查询一样，或许中望的下一个版本也能做出来。

xyp1964

重建填充（hatch）边界并求面积：
http://p4.xdcad.net/forum/showth ... y=&pagenumber=1

skevin1

恩 看來的確能支持中望的東西是有限的  不過也是造就它價錢便宜的因素...
"支持國產軟件"還是得要停留在口號階段...autocad 使用的人的確是佔了大多數  但是位了商機而沒多久就出新版本..真是讓人喘不過氣來呀   近來autocad公司抓盜版越來越嚴格了 大家試想如果要一個學生自學cad理論上來講根本變做不可能了因為他買不起正版...

小明..我學好了R14 我去努力存錢我就可以脫離盜版了...

兩年後

小明:我已經存了10000元了....R14已經沒人用了..R2000 要20000元...才買的到...於是小明使用了10元一張的盜版...雖然有時候會當機..不過他還是朝著要買正版的理想前進...

又過了兩年

小明: 我每天省吃儉用..我有40000元了...

AUTOCAD公司:先生抱歉..現在是賣2004版的 市價60000元整.不含稅呦..如果一次買兩套 還送你羊肉串兌換卷乙張...

小明:我不要羊肉串...我要正版CAD...

又過了兩年.....

小明:我拼了 我有90000元了.....

AUTOCAD公司:先生我們只有2006版的 市價100000元整.不含稅呦..你買不起我們公司還是會去抓你的..因為你用盜版..哇哈哈...其實我們就是靠這賺錢的......

小明:我要去買中望CAD 才10000元而以 還有付兩串羊肉串耶...我可以用正版了....YA YA YA..

買中望2005回家使用後

小明:   這是"R14"嗎.....天呀  

中望公司:您過獎了 其實R14比我們的2005還好.....因為盜版的R14比正版中望還不容易當機 而且功能更多 還有曉東會幫忙出工具箱

小明: 那你們為什麼不叫曉東幫忙?

中望公司:因為一台自行車就算裝上大燈也不會變成紅旗轎車的 所以基於這個理由我們不想浪費曉東的時間...

小明:那你們以後會改版嗎?功能會加強嗎?

中望公司:當然會呀 我們會以很快的速度改版本的 2006.2007.2008...不過功能一樣完全沒變...

小明:為什麼常當機?

中望公司:卸載從裝..

小明:為什麼速度慢?

中望公司:卸載從裝..

小明:為什麼畫圖在AUTOCAD裡不能開?

中望公司:卸載從裝..

小明:為什麼很哆LISP都不支援?

中望公司:卸載從裝..

小明:為什麼我花1萬元買個都是問題的軟體 除了所附贈的那兩串羊肉串還有一點價值外其他根本算沒用?

中望公司:關於這個問題 我想先生你搞錯了 羊肉串才是你買的 中望2005是隨羊肉串附贈的...

小明:...................................

小明:我要改行 我去賣羊肉串好了

狂刀

“小明”幽默，有前途！
填充是cad中除3d实体外最“复杂”的实体。本来打算自己写一个编辑程序，不料cad2006已经支持填充编辑。所以不了了之了。。。

skevin1

小明:  沒關係 8樓樓主可以 抱著救世濟人 慈悲為懷的精神 再寫一個呀 不可以讓外國人領先是吧 所以期待你的大作 為中國人爭一口氣.........

中望公司:  恩 對 小明先生言之有理 並且本公司日後也可以考慮優先採用 關於報酬部分 可以到全國各大"小明羊肉串"燒烤店免費吃到飽....終身有效...吃完還可附贈"小明羊肉串專用牙籤"....PS 牙籤不得轉送及出售 小明羊肉串有此贈品最終解釋權...

小明: 凸⊙_⊙ 我還沒轉行的說.......而且我幹麻要送牙籤呀

eachy

今天特地下载了ZWCAD2005，看了看Help，ZW支持Lisp和VBA，不支持CAD中的类似Vla部分函数，而且ZW中VBA的Area仅支持 Object is an Arc, Circle, Ellipse, Polyline, or Spline object，根本没有 Region，对Hatch 求面积，如果没有Region 的布尔操作是不可能的。在ZW的Object模型中也没有发现Region Object，Methods 中也没有发现 Union Sub 等函数，可能这些属于三维操作，ZW的标号是二维CAD。

skevin1

小明: 10樓樓主說的真清楚.....買了一個爛東西...還誇大的說有多好....真是欲哭無淚呀

中望公司: .......被發現了....收拾細軟快跑...會計記的把公司電話換掉...

小明: 為什麼那麼多東西都不支持..

中望公司:...其實是我們開發人員英文太差......

小明: 那你們怎麼可以欺騙消費者說你們東西有多好....

中望公司: 欺騙? 先生你言重了..消費者智商低其實與本公司產品無關的..再說了 出門在外能賺一塊是一塊 您說是吧...而且你羊肉串也吃了....

小明: 黑心cad.........

中望公司: 您撥的電話已關機................