با سلام خدمت بینندگان محترم
قبل از هر موردی ابتدا به معرفی خودم می پردازم:
(defun c
lud(/ a method plud_ss pline_info old new)
(setq old_err *error* ; Use special error handling function.
*error* plud_err)
(initget "Full Segment")
(setq method (getkword "Full/Segment <Full>: "))
(setq a 0)
(cond
((= "Segment" method) ; find all polylines with 128 bit set
(setq plud_ss
(ssget (list (cons 0 "POLYLINE")(cons -4 "&=")(cons 70 128)))
)
)
(T ; find all 2D polylines with 128 bit not set
(setq plud_ss (ssget (list (cons 0 "POLYLINE")
(cons -4 "<NOT")
(cons -4 "&")(cons 70 248)
(cons -4 "NOT>")
)))
)
)
همانطور که می دانید نرم افزار نقشه کشی گاز از سال 1369 تحت DOS و ورژن ایده آل آن در سال 1374 تحت Win NT و همچنین در سال 1375 تحت Win 98 طراحی و برنامه نویسی کردم که تاکنون نسخه های زیادی نوشته و در بین شرکتهای و مجریان لوله کشی گاز سراسر ایران، دست به دست چرخیده و از شهرت خاص و عام بالایی با نام های تجاری اتوگاز - اتوگاز فارسی - اتوگاز پارس - اتوگاز پارسینا - رسم همزمان ایزومتریک و پلان و ... برخوردار است.
چنانچه علاقه مندان قصد تهیه و خرید این نرم افزار را دارند
اینجا کلیک کنند.