CAD Fórum : sipka1 https://www.cadforum.cz/forum/ Sat, 27 Jun 2026 07:35:17 +0000 Thu, 06 Dec 2007 13:51:58 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=5563 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[sipka1 : Můj původní záměr byl, že 1. se...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27212&title=sipka1#27212 Autor: Ferdinand
Předmět: 5563
Zasláno: 06.pro.2007 v 13:51

Můj původní záměr byl, že 1. se vykreslí celá šipka (prázdná anebo plná - dle volby) v úhlu 0dg. (ukazuje doleva) a pak hotová se 2. otočí a 3. zvětší. Upravená verze dle vbehun by měla dělat (při volbě V) opravdu jen: 1.  vykreslí plný trojúhelníček v úhlu 0dg. (ukazuje doleva), 2. otočí a 3. zvětší - anebo (při volbě P): 1. vykreslí celou prázdnou šipku v úhlu 0dg. (ukazuje doleva) a pak hotovou 2. otočí a 3. zvětší. Takhle se docílí tvarově nesouhlasných "šipek". Poslední variantu viz zde.


Upravil Ferdinand - 06.pro.2007 v 13:53]]> Thu, 06 Dec 2007 13:51:58 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27212&title=sipka1#27212 <![CDATA[sipka1 : Dovolil jsem si odkomentovat řádek---...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27195&title=sipka1#27195 Autor: vbehun
Předmět: 5563
Zasláno: 06.pro.2007 v 09:20

Dovolil jsem si odkomentovat řádek
---
        ;;(command "_trace" 0.5 B3 B4 "")
---
protože vyplněná šipka pod úhlem odlišným od 0/90/180/270° se nevykresluje správně.
Takto upravený lisp nakreslí při volbě "Vyplněná" pouze vyplněný trojúhelník, bez dalších čar.
]]> Thu, 06 Dec 2007 09:20:57 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27195&title=sipka1#27195 <![CDATA[sipka1 : Přeposílám sem - s opravounázvu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27187&title=sipka1#27187 Autor: Ferdinand
Předmět: 5563
Zasláno: 06.pro.2007 v 08:12

Přeposílám sem - s opravou názvu funkce ze "sipka2" na "sip":
-- Předchozí soukromá zpráva --
Odeslal : Martin Bielina
Odesláno : 2007.pro.06 v 01:01

Nevím jestli to není s křížkem po funuse, ale našel jsem tu chybičku, která způsobovala chybové hlášení C:BODY. Nicméně autor Lispu nejsem, tak jen posílám opravený kód pro případné uveřejnění autorem.

Poznámka:
Uvnitř funkce C:BODY chyběla jedna závorka na setq
A navíc jsem udělal z BODY jen lokální subrutinu

;;kresleni sipky
;;-FerTh-20071128

(defun c:sip (/ ORM OSM)
(setq ORM (getvar "orthomode"))
(setq OSM (getvar "osmode"))
(setvar "osmode" 33)
(setvar "orthomode" 0)
(setvar "filedia" 0)

(initget "V P")

(SETQ keypart (getkword "\nŠipka bude [Vyplněná/Prázdná]: <V> "))
(if (= keypart nil)
    (setq keypart "V")
)

(cond     ((= keypart "P")          ;prazdna sipka
      (progn
        (BODY)
        (command "_zoom" "_W" W3 W4)
        (command "_pline" ZB B1 B5 B6 B7 B8 B2 "_C")
        (command "_zoom" "_P")
      )
        (setq part 1)
      )
     ((= keypart "V")          ;vyplnena sipka
      (progn
        (BODY)
        (command "_zoom" "_W" W3 W4)
        (command "_trace" 0.5 B3 B4 "")
        (command "_solid" B1 ZB B2 "" "")
        (command "_zoom" "_P")
      )
      (setq part 2)
     )
)

(command "_rotate" "_W" W1 W2 "" ZB pause)
(command "_scale" "_P" "" ZB pause)
(setvar "orthomode" ORM)
(setvar "osmode" OSM)
(setvar "filedia" 1)
)

;;podrutina pro ziskani bodu
(defun BODY ()
(command "_solid" pause ^c^c)
(setq ZB (getvar "lastpoint"))
(setq B1 (list (+ (car ZB) 1) (- (cadr ZB) 0.5)))
(setq B2 (list (+ (car ZB) 1) (+ (cadr ZB) 0.5)))
(setq B3 (list (+ (car ZB) 1) (cadr ZB)))
(setq B4 (list (+ (car ZB) 2) (cadr ZB)))
(setq B5 (list (+ (car ZB) 1) (- (cadr ZB) 0.25)))
(setq B6 (list (+ (car ZB) 2) (- (cadr ZB) 0.25)))
(setq B7 (list (+ (car ZB) 2) (+ (cadr ZB) 0.25)))
(setq B8 (list (+ (car ZB) 1) (+ (cadr ZB) 0.25)))
(setq W1 (list (car ZB) (- (cadr ZB) 0.5)))
(setq W2 (list (+ (car ZB) 2) (+ (cadr ZB) 0.5)))
(setq W3 (list (- (car ZB) 5) (- (cadr ZB) 5.0)))
(setq W4 (list (+ (car ZB) 7) (+ (cadr ZB) 5.0)))
)
 
Pozn.: lisp je ke stažení pod názvem "sip.lsp" na
tomto odkazu


Upravil Ferdinand - 06.pro.2007 v 08:28]]> Thu, 06 Dec 2007 08:12:59 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27187&title=sipka1#27187 <![CDATA[sipka1 : Zkusil jsem to dnes na plné verzi...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27182&title=sipka1#27182 Autor: zdrk
Předmět: 5563
Zasláno: 05.pro.2007 v 17:37

Zkusil jsem to dnes na plné verzi cadu 2007 a též to vypíše je chybu C:BODY, jak pro prázdnou tak i pro vyplněnou verzi šipky.]]> Wed, 05 Dec 2007 17:37:05 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27182&title=sipka1#27182 <![CDATA[sipka1 : CIVIL je &#034;jen&#034; vylepšený...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27167&title=sipka1#27167 Autor: Radim Cech
Předmět: 5563
Zasláno: 05.pro.2007 v 14:04

CIVIL je "jen" vylepšený AutoCAD, tím to být nemůže.
Už to fungovalo, akorát to nějak havarovalo s jedním bodem šipky. Proto mně překvapilo, že to teď nejede vůbec
 
]]> Wed, 05 Dec 2007 14:04:29 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27167&title=sipka1#27167 <![CDATA[sipka1 : Možná v Civilu se to chová trocho...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27165&title=sipka1#27165 Autor: Ferdinand
Předmět: 5563
Zasláno: 05.pro.2007 v 13:54

Možná v Civilu se to chová trocho odlišně Question - nevím, Civil neznám. Jasně, příkaz může být nadefinován třebas pod zkratkou SIP - stačí v Notepadu zeditovat... Ale vycházel jsem z obecné zkušenosti, že lispy mívají několik variant - a ty odlišuji číselným indexem na konci. Konečnou (tj. funkční) verzi pak "zfinalizuji" do přijatelnějšího názvu/zkratky. Napadá mne jedna věc: zkusit dát sekvenci C:BODY hned na začátek lispu, před vlastní výkonné jádro.]]> Wed, 05 Dec 2007 13:54:41 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27165&title=sipka1#27165 <![CDATA[sipka1 : Ale zase to nejde. Havaruje to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27141&title=sipka1#27141 Autor: Radim Cech
Předmět: 5563
Zasláno: 04.pro.2007 v 16:50

Ale zase to nejde. Havaruje to na C:BODY, asi volání funkce.
 
A pokud můžu, nechte volání funkce SIPKA
]]> Tue, 04 Dec 2007 16:50:25 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27141&title=sipka1#27141 <![CDATA[sipka1 : Opraveno (pro Ferdinanda: pošlete...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27092&title=sipka1#27092 Autor: Vladimír Michl
Předmět: 5563
Zasláno: 03.pro.2007 v 18:38

Opraveno (pro Ferdinanda: pošlete mi prosím PM zprávu, jak se vám podařilo tam dostat starý formát URL odkazu přílohy - někde možná máme chybku v rozhraní fóra)]]> Mon, 03 Dec 2007 18:38:28 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27092&title=sipka1#27092 <![CDATA[sipka1 : Odkaz je nefunkční. ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27090&title=sipka1#27090 Autor: PepaR
Předmět: 5563
Zasláno: 03.pro.2007 v 17:33

Odkaz je nefunkční.]]> Mon, 03 Dec 2007 17:33:52 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27090&title=sipka1#27090 <![CDATA[sipka1 : Omlouvám se, bylo to v pořadí...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27082&title=sipka1#27082 Autor: Ferdinand
Předmět: 5563
Zasláno: 03.pro.2007 v 14:53

Omlouvám se, bylo to v pořadí kreslení entit.uploads/20071203_145222_sipka2.lsp]]> Mon, 03 Dec 2007 14:53:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5563&PID=27082&title=sipka1#27082